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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITIAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE 
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF 
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN 
WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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1.0 


ABSTRACT 


THIS DIAGNOSTIC TESTS THE DCL OF THE RPO4/5/6 DISK SUBSYSTEM 
WHEN CONNECTED TO EITHER AN RH17 OR RH70 CONTROLLER. 


IT USES THE DISK SURFACE AND THE DRIVE MECHANICS TO PROVE 

THE PROPER WORKING OF THE SUBSYSTEM. IT DOES NOT NEED A 
FORMATTED DISK PACK. A DISK PACK WITH NO VITAL INFORMATION 
WRITTEN ON IT IS ESSENTIAL. AFTER A SUCCESSFUL RUN (WITH 

NO ERRORS) OF THIS DIAGNOSTIC IT CAN BE ASSERTED THAT THE 

DCL IN THE RPO04/5/6 SUBSYSTEM WORKS SUCCESSFULLY Ae Peers 
ALONE. SYSTEMS INTERACTION AND DRIVE TIMING IS LEFT T 

OTHER DIAGNOSTICS. THIS IS WITH THE ASSUMPTION THAT STATIC 1 
(DZRPS AND DZRPT ) HAS BEEN RUN SUCCESSFULLY. 


REQUIREMENTS 
EQUIPMENT 


PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RPO4/5/6 DISK 
SYSTEM. THE RPO4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11 
CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 DISK 
DRIVE, AND ITS APPROPRIATE DISK PACK. THE DISK PACK NEED 
NOT BE FORMATTED. USED SECTION OF THE DISK SURFACE SHALL 
BE GOOD (HOLE FREE). THE SURFACE FOR THE FOLLOWING SECTORS 
MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE 

“gr tabs BEFORE ANY DATA ERROR CAN BE ATTRIBUTED TO 

HE L . 


CYLINDER 00, 00, 
CYLINDER 00, 
CYLINDER 00, 
CYLINDER 01, 
CYLINDER 02, 
CYLINDER 03, 
CYLINDER 04, 
CYLINDER 05, 
CYLINDER 05, 
CYLINDER 06, 
CYLINDER 07, 
CYLINDER 08, 
CYLINDER 09, C 
CYLINDER 410, TRACK 1 


STORAGE 
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY 
PRELIMINARY PROGRAMS 


THIS PROGRAM ASSUMES THAT MAINDEC-11-DZ2RJG~(LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS. 


IT ASSUMES THAT MAINDEC-11-DZRJH=(LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS. 


SEQ 0003 
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AND IT ASSUMES THAT MAINDEC-11-DZRJI-(LATEST 

REV) HAS BEEN RUN WITHOUT ERRORS. 

LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 

STARTING PROCEDURE 

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN 
RH70 CONTROLLER. IT CAN BE SET AT THE FRONT PANEL, OR IN THE 
SOFTWARE SWITCH REGISTER IF THE OPERATOR SO DERSIRES. SEE 
PARAGRAPH 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 
OPERATION. 

CONTROL SWITCH SETTINGS 

SEE SECTION 5.1 

STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL 
START AT ADDRESS 210---FOR UNIT SELECTION 


200 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO4/5/6S ON THE SYSTEM WILL BE 


TESTED ONE AT A TIME BEFORE ‘END PASS'' IS PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT IS POWERED UP. 


204 RESTART 

SAME AS 200 START, WITH THE FOLLOWING EXCEPTIONS: THE 
PROGRAM WILL INTERROGATE THE OPERATOR FOR THE NON~DEFAULT 
C.S.R. AND VECTOR ADDRESS FOR THE RHXX CONTROLLER 

WHEN THESE QUESTIONS HAVE CORRECTLY BEEN ANSWERED, THE 
PROGRAM WILL AUTOMATICALLY RESTART FROM ADDRESS 200. 


210 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 


NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM. 


PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

2. SET STARTING ADDRESS ON THE SWITCH REGISTER 
3. PRESS ‘LOAD ADDRESS’’. 
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4. SET ‘OPERATIONAL SWITCH SETTINGS’’ <SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


PRESS ‘START’. 


FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 
CN THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘END 

PASS'* IS PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN ‘‘ACT-11"" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR a Ns 
SELECTED BEFORE ‘END PASS'’ IS PRINTED. THE SECON 

AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1. E. 

AN 11/34) IT WILL DETERMINE THAT A HARDWARE SWITCH REGISTER 

IS NOT PRESENT, AND WILL USE A ‘‘SOFTWARE'’ SWITCH REGISTER. 

THE SETTINGS OF THE ‘‘SOFTWARE’’ SWITCHES ARE CONTROLLED 

THROUGH A KEYBOARD ROUTINE WHICH IS CALED BY TYPING A 

"CONTROL G*. THE PROGRAM WILL RECOGNIZE A ‘CONTROL G* AT ANY 
TIME EXCEPT WHEN IT IS AT A HIGHER PRIORITY PROCESSING AN 
RP04/5/6 INTERRUPT. THE ‘'SOFTWARE'’ SWITCH VALUES ARE ENTERED AS 
AN OCTAL NUMBER IN RESPONSE TO PROMPTING FROM THE SWITCH 

ENTRY ROUTINE: 


*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
REQUIRED. ‘RUBOUT' AND ‘CONTROL U* FUNCTIONS MAY BE USED TO 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE #SOFTWARE"’ 
SWITCH REGISTER MAY ALSO BE USED. IF THE PROGRAM or ALL 
16 SWITCHES IN THE "UP* POSITION WHEN IT IS STARTED, A 

SWITCH REGISTER REFERENCES WILL BE TO THE ‘'SOFTWARE*’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘OPERATIONAL 
othe SETTINGS'* HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 


SWITCH 15 - HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
"CONT INUE'' WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN. 


SWITCH 14 = LOOP ON TEST 
WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP 


SEQ 0005 
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ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH IS SET WHEN THE PROGRAM IS IN TCST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 = INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ‘'STOP DRIVE x"’ 
WILL CONTINUE. AT THE END OF PASS ‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X’’ WILL BE TRUE, THAT IS, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. 


SWITCH 12 = RH70 CONTROLLER SELECT 

THIS SWITCH MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
DISK DRIVES TO TESTED ARE CONNECTED TO AN RH70 CONTROLLER. 
IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED ARE 
CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 = INHIBIT ITERATIONS 

WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 
aly apy EACH TEST FOUR TIMES BUT WILL DO EACH TEST 
IN LY. 


SWITCH 10 - BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE *BELL** OR *‘ALARM'’ WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 IS SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

IS PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR IS NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED ‘‘SCOPE’’ STATEMENT. IF ON THE SECOND TIME 

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO 

THAT ‘‘SCOPE’’ STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR 

IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

IS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: SEE SECTION 8.3 
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SWITCH 8 = LOOP ON TEST IN SWR <7:0> 

THIS IS A SPECIAL SWITCH. WHEN SET SW:TCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 

QO THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 

7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 

WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM a LOOP 
ON TEST 10. HOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH IS NOT SET THEN SWITCHES 
QO THRU 7 HAVE THE MEAING ITS NAME INDICATES. 

FOR EXAMPLE SWITCH 7 IS ‘‘STOP FURTHER COMPARES: THAT IS 
IF SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH 

IS "ECC TEST-COMPARE END RESULT ONLY’*. THAT IS IF SWITCH 
8 IS NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SwWO8 IS LOW. 

IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 


NAME INDICATES. FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 

THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 

NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 - TYPE ALL REGISTERS WITH ERROR IF SWO8 IS LOW 
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN 

THIS SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS 
INDICATED IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS 


SEQ 0007 


C, 
C 
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NOT SET AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO 

AS THE NAME INDICATES. THAT IS ON FINDING AN ERROR INSTEAD 
OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT REGISTERS 

AS WILL BE DONE IF SWITCH 11 IS NOT SET BUT WILL ALSO 

GIVE ALL THE REGISTER CONTENTS (EXCEPT ‘DATA BUFFER’' RHDB). 


SUBROUTINE ABSTRACTS 
SEE SECTION 9 ‘‘SUBROUTINES"’. 
ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNIA'S THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4/5/6 
REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


*FATAL' ERRORS 


IN THE EVENT THAT THE DISK DRIVE ECOMES UNAVAILABLE TO THE 
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
CANOT BE CLEARED PRIOR TO THE START OF ATEST SEQUENCE - THIS 
INFORMATION WILL BE COMMUNICATED TO THE OPERATOR. IN 
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 
IT IS SUGGESTED THAT IF THIS HAPPENS, THE OPERATOR LOAD 
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 
TO SOLVE THE PROBLEM. IF THE FILURE CONTINUES TO OCCUR, 
THERE ARE TWO OPTIONS FOR THE OPERATOR: 


1. LOOK IN THE TEST LISTING FOR THE ‘HALT' 
INSTRUCTION AND REPLACE IT, PLUS THE TWO WORDS 
(TYPE ,CPHALT'’) ABOVE WITH "NOP'S. WITH TTY ERROR 
PRINTOUTS INHIBITED, A SCOPE LOOP CAN BE INITIATED 
FOR THE TEST IN QUESTION. 


2. GO BACK AND RERUN THE DZRPS DIAGNOSTIC AS IT IS 
QUITE POSSIBLE THAT A HARD FAILURE HAS OCCURRED IN 
ONE OF THE HARDWARE REGISTERS. 


IT IS ALSO POSSIBLE TO CONTINUE FROM THE ‘HALT POINT, BUT 
THIS IS NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT 
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST HAVE THE 
DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B BUT 
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE OF THE REQUIREMENT FOR IT TO BE SET WHEN USING AN 
RH70, THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE 


SEQ 0008 
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SOFTWARE REGISTER FEATURE WHILE RUNNING ON AN RH70._ THIS IS 
BECAUSE THE ROUTINE WHICH GETS SOFTWARE SWITCH SETTINGS IS 
NOT OPERABLE WHEN IN CHAIN MODE. 

MISCELLANEOUS 

EXECUTION TIME 

THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 20 
SECONDS. | SUBSEQUENT PASSES WILL TAKE 

60 SECONDS . 

STACK POINTER 

THE STACK IS INITIALLY SET TO 1000 

OPERATOR SELECTABLE SCOPE LOOPS 

HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING THE USAGE OF THIS TECHNIQUE, HIT “C 
ANY TIME WHILE THE PROGRAM IS RUNNING. ON HITTING AN ERROR 


IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK - 
USUALLY BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 
1. IT MUST BE WITHIN THE TEST es CONSIDERATION 


2. LOOP ON ERROR SWITCH MUST BE S 

3. _THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP 


ON 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 


THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM REVISION HISTORY 


PROGRAM DESCRIPTION 

LOGIC DIVISION IN HARDWARE MODULES 

REGISTER BOARD (RG) - ERROR REGISTER 1 STATUS REGISTERS 
MUX FOR REGISTERS GO HANDLING REGISTER 
DECODE COMMAND DECODE EXECUTION OF 
MECH. COMMANDS 


SYNC. DATA BOARD (SN) - DATA CONTROL PARALLEL TO SERIAL 
SYNC. BYTE DETECT. 


SEEK AND SEARCH (SS) - SEEK LOGIC SEARCH LOGIC HEADER 
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HANDLING. 


ERROR CORRECTION (EC) - ae LOGIC ERROR REGISTER 2 & 3 
FOR ERROR REG. 2 & 3 LOOK AHEAD 
REG. SECTOR COUNTER DATA FORMATION 
RING COUNTER. 


DUAL PORT (DP) - DUAL PORT ARBITRATION ATTENTION LOGIC 
eate REGISTER MASS BUS REGISTER 


DISK SURFACE USAGE 


SYMBOLS USED 
C = CYLINDER 
T = TRACK 

S = SECTOR 
W = WRITE 


_RE AD 
= TEST NUMBER 


cO, TO, SO 
TT22-W,R, TT23-R, TI24-W,R, TI25-W,R, TT26-W,R, TT35-W,R, TT37-W, TT50-W, TT51-W.R, TT52-W,R, TTS5-wW,R 


cO, TO, S1 
TT27-W,R, TT37-W,R, TT40-R, TT41-W,R, TT42-W,R, TT43-W.R 


cO, 718, S21 
TT30-W, TT31-W,R 


C1, TO, SO 
TT30-W.R, TT31-W,R, TT53-W,R, TT54-W,R 


C1, 118, S21 

TT31-W 

C2, TO, SO 

TT31-W,R 

C2, 118, S21 

TT31-W 

C3, TO, SO 
TT31-W.R 

C3, 118, S21 

TT31-W 

C4, 70, SO 
TT31-W,R 


C4, 1718, S21 
TT31-w 


79, 50 
ey 
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C5, 17, 84 
TT33-W.R, TT34-W,R 
CS, 118, $21 
TT31-w 


C6, TO, SO 
TT31-W.R 


C6, 118, S21 
TT31-wW 


C7, TO, SO 
TT31-W,R 


C7, 118, S18 

TT31-W 

c8, TO, SO 
TT31-w.R 

C8, 118, S21 

TT31-W 


c9, TO, SO 
TT31-W 


C9, 718, S21 
TT31-W, TT32-R 


C10, TO, SO 
TT31-W,R 


C410, 118, S21 
TT36-W.R, TT50-W,R 


THE FOLLOWING SECTION DESCRIBES EACH TEST AND apts ‘Meta 
IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING, 

THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
trios THAT ITEM WILL BE FOUND. 
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603 
604 


;DRIVE MUST BE LOCKED ON PORT A OR PORT B 


;* INTERNAL PROGRAM MACROS BEGIN HERE 


TREE KEKE EEE EERE KEKE 


; #NOTE : ALL MACRO CALLS BEGINNING WITH *’.$'' ARE SUPPLIED FROM AN 
EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 








C2I 
C2I 
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000174 DISPREG: .WORD QO 3; SOFTWARE DISPLAY REGISTER 
000176 SWREG: «WORD 9 3SOFTWARE SWITCH REGISTER 


SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
«WORD 20000 322)SET LOC.52 TO 20000 


STARTING ADDRESS 
@ABEGIN NORMAL START 
@A4BASE CH GET DEVICE PARAMETERS 
@ABEGIN2 ; JUMP TO SELECT DRIVE START 
@A*BEGINI ; JUMP TO NO OPERATOR TESTS START 


;*STARTING ADDRESS 200 FOR NORMAL STARTS 
:*THIS WILL TEST ALi RPO4'S ON THE SYSTEM A SINGLE DRIVE AT A TIME 


: #START ING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


** 
;*STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 
;*AT THE DRIVE 
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+s CONTAINS PASS COUNT 
THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
hat CONTROL BYTE 
ERRORS PER TEST 
PC. OF LAST tone go hes 


$3 INS DATA 
::RESERVED--NOT TO BE USED 


;sAUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 

7 ADDRESS OF DISPLAY REGISTER 

33TTY KBD STATUS 

:;TTY KBD BUFFER 

7zTTY PRINTER STATUS REG. ADDRESS 

7: TTY PRINTER BUFFER REG. ADDRESS 
[:CONTAINS NULL CHARACTER FOR FILLS 
::CONTAINS # OF FILLER CHARACTERS REQUIRED 
+2 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 

ae ;" TERMINAL et. skon (BIT<07>=0=YES) 


£3 CONTAINS <  $REGAD) +10) 
CONTAINS (($REGAD) +12) 


NUMBER OF ITERATIONS 
: TESCAPE ON ERROR ADDRESS 
CODE FOR BELL 
; QUESTION MARK 
32 CARRIAGE RETURN 
7sLINE FEED 
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042572 7 :RP04 DID NOT INTERRUPT 
‘WAITED ON BIT DID NOT OCCUR 
057450 ; 


PC 
WAT PC 
;BIT WAITED 
REG ADDRESS 
REG CONTENTS 
:RHCS1 CONTENTS 
061720 7 SERRPC ,WAITPC ,WAITBT ,WAITRE,SBDDAT,CS1 
062240 :0.0,0,0,0,0 


042621 ; INTERRUPT ENABLE BIT DOWN BUT 
:WAITED ON BIT DID NOT OCCUR 
057450 PC 
ZWAT PC 
:BIT WAITED 
;REG ADDRESS 
;REG CONTENTS 
;RHCS1 CONTENTS 
001242 061720 sSERRPC ,WAITPC,,WAITBT ,WAITRE,S8DDAT,CS1 
001244 062240 :0.0,0,0,0,0 


001246 042710 : :RP04 DID NOT INTERRUPT WHEN 
[WAITED ON BIT DID SET 
001250 057450 “Pp 


sPC 

sWAT PC 

:BIT WAITED 

;REG ADDRESS 

;RHCS1 CONTENTS 

001252 061720 sSERRPC ,WAITPC,WAITBT ,WAITRE,S8DDAT,CS1 
001254 062240 70.0,0,0,0,0 


001256 042771 ;WAITED ON BIT DID SET BUT 
:TIME IS IN ERROR 
TIME IS GIVEN IN 10 MICRO SEC. 
; (DECIMAL) 

001260 057630 :P 


C 
;WAT PC 
:BIT WAITED 
REG ADDRESS 
:TIME IN 10 MSEC 
001262 061740 7 SERRPC ,WAITPC ,WAITBT ,WAITRE ,S8DDAT ,WAITIM 
001264 062247 :0,0,0,0,0,1 


001266 043102 . E :RHAS DOES NOT CLEAR BY 
:MOVING IN ALL ONES 
001270 057771 


PC 
REG. ADDR. 
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:GOOD DATA 

RECEIVED DATA 
001272 061762 ; SERRPC ,REGADR, $GDDAT , $BDDAT 
001274 062256 :0,0,0,0 


001276 043154 : E ZLOADING RHER1 FOR ALL 
‘UNITS DID NOT SET ANY BITS 
> IN RHAS=-NO UNITS PRESENT 


=PC 

[REG ADDR 

;RECEIVED DATA 
001302 061776 ;SERRPC ,REGADR, $BDDAT 
001304 062263 :0,0,0 


001300 060110 


001306 043242 ; E SPECIFIED REGISTER NONEXISTANT 
ee ABORT PROGRAM 


001310 060207 
SADDR. OF REG. 


001312 062010 ;SERRPC,TEMP1 
001314 062267 20,0 


7 1TEM10 
001316 043312 E ;STOPED DRIVE HAS MOL BIT 


: : IN RHDS1 = 1 
001320 060247 PC 
;TEST NO 
sFAILING REG ADDR 
;CONTENTS OF RHCS1 
;CONTENTS OF RHCS2 
s CONTENTS OF en 
:CONTENTS OF RHER1 
001322 062020 *$ERRPC, $TSTNM,$BDADR,CS1,CS2.DS1.,ER1 
001324 062272 70, 0,0, 0,0, 0,0 


3 1TEM11 
001326 043361 E ;WITH SPINDLE POWERED DOWN 
:RHCS2 SHOULD HAVE ONLY 
a NUMBER AND IR HIGH 


; TEST NO 
[FAILING REG. ADR 
: CONTENTS OF RHCS1 


001330 060247 


001332 062020 SSERRPC ,$TSTNM, SEDADR, CS1,CS2,DS1,ER1 
001334 062272 :0,0,0.0,0,0,0 


7 ITEMI2 
001336 043466 E AFTER A POWER UP WITH 
;NO PACK ACKNOWLEDGE COMMAND 
;RHDS1 SHOULD HAVE MOL=1, VV=0 


001340 060247 3PC 
TEST NO 





an 


CZRJJCO, RPO4/S/6 FCTNL CIAL Re 


C2RJuC.P11 


001352 
001354 


001356 
001360 


001362 
001364 


26-JUL-78 1 


062020 
062272 


043574 


060247 


062020 
062272 


043713 


057771 


061762 
062256 


MACY11 Ae he 27-JUL-78 
OR POINTER TABLE 


7 1TEM13 
E 


7 1TEM14 
E 


G 2 
12:32 PAGE 20 SEQ 0019 


FAILING ey ty ADDR. 
; CONT RHCS1 


: ER1 
:SERRPC ,$TSTNM, SBDADR,CS1,CS2,DS1,ER1 


:0,0,0,0,0,0,0 


sAFTER A POWER UP WITHOUT 
zANY INIT RHCS1 SHOULD 
HAVE GO=0, DVA=1, RDY=1 
;1E=0, DISREGARD 

a OTHER BITS 


;TEST NO 

FAILING REGISTER ADDR. 
CONTENTS OF RHCS1 
CONTENTS OF RHCS2 


CONTENTS OF eae gh 

CONTENTS OF RHER1 

SERRPC ,$TSTNM, SBDADR,CS1,CS2,DS1.ER1 
:0,0,0,0,0,0,0 


AFTER POWER UP RHCC 
_ BE=0 


:REG. ADDR. 
:GOOD DATA 


SRECEIVED DATA 
7 SERRPC ,REGADR, $GDDAT , S$BDDAT 


. 
’ e ’ e 





ao 
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7 ITEM15 
001366 043765 EM15 sPACK ACKNOWLEDGE CAUSED 
ZAN ERROR 
;GOOD DATA IS BEFORE COMMAND 
pe ie DATA IS AFTER COMMAND 


REG. ADDR. 

;GOOD DATA 

RECEIVED DATA 

001372 061762 7 SERRPC ,REGADR, $GDDAT , $BDDAT 
001374 062256 :0,0,0,0 


: 1TEM16 
001376 044126 E ig A NO-OP COMMAND CAUSED 


7 AN 

;GOOD DATA GIVES REGISTER 

; CONTENTS BEFORE COMMAND 
SRECEIVED DATA GIVES REGISTER 
Oia AFTER COMMAND 


REG. ADDR. 

;GOOD DATA 

RECEIVED DATA 
001402 061762 ;SERRPC ,REGADR , SGDDAT , $BDDAT 
001404 062256 :0,0,0,0 


001370 057771 


001400 057771 


7 1TEM17 
001406 044254 E ;DRIVE CLEAR COMMAND 


; CAUSED AN ERROR 

:GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

s;RECEIVED DATA GIVES WHAT WAS 
oo AFTER COMMAND 


REG. ADDR. 

;GOOD DATA 

RECEIVED DATA 
001412 061762 ;SERRPC ,REGADR ,SGDDAT , SBDDAT 
001414 062256 30,0,0,0 


3; 1TEM20 
001416 044411 E :READ-IN COMMAND GAVE AN ERROR 
:GOOD DATA HAS WHAT SHOULD BE THERE 
RECEIVED DATA HAS WHAT WAS 
AFTER COMMAND 


3PC 

;REG. ADDR. 

:GOOD DATA 

RECEIVED DAT 

001422 061762 SERRPC, REGADR, $GDDAT , $BDDAT 
001424 062256 :0,0,0,0 


001410 057771 


001420 057771 


7 ITEM 21 
001426 044560 EM21 ZRHCS1 CONTENTS DURING 
; COMMAND WAS IN ERROR 





CZRJJCO, RPO4/5/6 FCTNL cine 


CZRJJC.P11 
001430 
001432 
001434 
001436 
001440 


001442 
001444 


001446 
001450 


001452 
001454 


001456 


001460 
001462 
001464 


001466 


001470 
001472 
001474 


001476 
001500 


001502 
001504 


001506 


26-JUL-78 10: 
057771 
061762 
062256 
044633 


057771 


044706 


057771 
061762 
062256 


045055 


057771 
061762 
062256 


045220 


057771 
061762 
062256 


045402 
060426 


062040 
062301 


045472 


MACY11 30A(1052) 27=JUL-78 
ERROR POINTER TABLE 


7 1TEM 22 
EM 


ITEM 23 
EM 


ITEM 24 
EM24 


: ITEM 26 
EM26 


1 2 
12:32 PAGE 22 SEQ 0021 


;RHDS1 CONTENTS DURING 
;COMM ANS WAS IN ERROR 


;UNLOAD COMMAND GAVE AN ERROR 
;GOOD DATA GIVES WHAT SHOULD 
;BE THER 

;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


OFFSET COMMAND CAUSED AN ERROR 
;GOOD DATA IS WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
;AFTER AN OFFSET COMMAND 


;RETURN TO CENTER LINE COMMAND 
; CAUSED AN ERROR 
cn GIVES WHAT SHOULD BE 


THE 
;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


ta OFFSETS CAUSED AN ERROR 


CONT. OF RHER3 
ZSERRPC,CS1,CS2,DS1,ER1,ER2,ER3 
:0,0,0,0,0,0,0 


;WRITE HEADER AND DATA 
; CAUSED IMPROPER REGISTER CHANGE 
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CZRJJC.P11 


001540 
001542 
001544 


001566 


26-JUL=78 10:07 


057771 
061762 
062256 


045710 
060626 


062062 
062311 


045770 


057771 
061762 
062256 


046205 


046312 


057771 
061762 
062256 


046514 


062311 


046540 


ERROR POINTER TABLE 


;GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMAND 


; ITEM 30 
EM30 ;WRITE HEADER AND DATA 
: CHANGED WRITE FROM BUFFER 
DH30 PC 


;WORD NO 

;GOOD DATA 

;BAD DATA 
DT30 sSERRPC ,ERWORD,$GDDAT . $BDDAT 
DF 30 3:0,0,0,0 


ITEM 31 
E ;READ HEADER AND DATA CAUSED 

; IMPROPER REGISTER CHANGE 

;GOOD DATA HAS WHAT SHOULD 

;BE THERE 

RECEIVED DATA GIVES WHAT 

;WAS THERE AFTER COMMAND 


;WRITE HEADER AND DATA FOLLOWED 
;BY A READ HEADER AND DATA 
; CAUSED A READ/WRITE ERROR 


READ DATA CAUSED IMPROPER REGISTER 


; CHANGE 

:GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE AFTER 
; COMMAND 


READ DATA INCORRECT 


7 1TEM 35 
E 


WRITE DATA COMMAND CAUSED 
; IMPROPER REGISTER CHANGE 





CZ 
CZ 
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;GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES REGISTER 
CONTENTS AFTER WRITE DATA 

057771 

061762 

062256 


046756 EM36 ;WRITE DATA COMMAND CHANGED 
;WRITE FROM BUFFER 


047033 EM37 ;SEEK COMMAND CAUSED AN 


; ERROR 

;GOOD DATA GIVES WHAT SHOULD 
SBE THERE 

:RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER SEEK COMMAND 


057771 


; ITEM 40 

047250 EM40 sWRITE CHECK CAUSED AN 
; IMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD 
:BE THERE 
sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 

057771 


7 ITEM 41 

047457 EM41 ;LOCKING OUT WRITES BY WRITE 
;LOCK BUTTON CAUSED IMPROPER 
REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER WRITES 
WERE LOCKED OUT BY 
; BUTTON 

057771 

061762 

062256 


7 ITEM 42 
047740 EM4 ;ATTEMPTING TO WRITE WITH WRITE 
:LOCKED OUT CAUSED IMPROPER 
;REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
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RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPT 

057771 

061762 

062256 


050216 M43 ;WRITING WITH WRITE LOCKED 

;OUT CHANGED DISK DATA 
;GOOD DATA GIVES WHAT WAS 
ON DISK BEFORE WRITE WITH 
WRITE LOCK WAS ATTEMPTED 
RECEIVED DATA GIVES WHAT WAS 
;READ BACK AFTER WRITE WITH 
;WRITE LOCK WAS ATTEMPTED 

001650 

001652 

001654 


ITEM 44 
001656 050554 EM44 ENABLING WRITES BY WRITE LOCK 
;BUTTON CAUSED AN ERROR 
— GIVES WHAT SHOULD 


;BE E 
;RECEIVED DATA GIVES WHAT WAS 
s THERE AFTER WRITE LOCK 
x ;BUTTON ENABLED WRITES 
057771 : 
061762 : 
062256 : 


051046 EM ; TRANSFERRING ON LAST BLOCK IE. CYLINDER 
7410, SECTOR 21, TRACK 18 
;CAUSED IMPROPER REGISTER 


; CHANGE 
doy BA, GIVES WHAT SHOULD 


;BE THE 
;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER TRANSFER 

057771 

061762 

062256 


051354 6 ;DATA READ FROM LAST 
;BLOCK IE. CYLINDER 410 
:SECTOR 21, TRACK 18 IS IN 
ERROR 


060626 
062062 
062311 
7 ITEM 47 


051500 EM47 ; TRANSFERRING FROM NONEXISTANT 
SECTOR CAUSED IMPROPER 


1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 





M 2 
CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL-78 12:32 PAGE 26 SEQ 0025 
CZRJJC.P11 26-JUL-78 10:07 ERROR POINTER TABLE 


1128 REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 


3 


1130 7BE THERE 

1131 RECEIVED DATA GIVES WHAT WAS 
1132 ; THERE AFTER ATTEMPTED 

1133 ; TRANSFER 

1134 001710 057771 DH5 

1135 001712 061762 DTS 

Ue 001714 062256 DFS 

1138 7 1TEM 50 

1139 001716 051762 EM ; TRANSFERRING FROM NONEXISTANT 
1140 SECTOR CAUSED DATA ERROR 

1141 ;GOOD DATA GIVES WHAT 

1142 SHOULD BE IN BUFFER 

1143 RECEIVED DATA GIVES WHAT WAS 
1144 7 IN BUFFER AFTER TRANSFER 

1145 001720 060626 DH30 

1146 001722 062062 DT30 

1147 001724 062311 DF 30 

1148 

1149 7 1TEM 51 

1150 001726 052201 EM51 3GIVING ILLEGAL FUNCTION CAUSED 
1151 ; IMPROPER REGISTER CHANGE 

1152 ;GOOD DATA GIVES WHAT SHOULD BE 
1153 3 THERE 

1154 RECEIVED DATA GIVES REGISTER 
1155 CONTENTS AFTER ILLEGAL FUNCTION 
1156 001730 060740 DH51 7PC 

1157 REG. ADDR. 

1158 :GOOD DATA 

1159 RECEIVED DATA 

1160 ILLEGAL FUNCTION 

1161 001732 062076 DT51 7 SERRPC ,REGADR, SGDDAT , $8DDAT , ILLEGL 
iB 001734 062316 DF51 70,0,0,0.0 


: ITEM 52 
001736 052446 EM5 ;WRITE DATA ON NONEXISTANT 
;SECTOR CAUSED IMPROPER 
sREGISTER CHANGE 


;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 


:BE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER ATTEMPTED 
WRITE DATA 

001740 057771 DHS 

001742 061762 DTS 

001744 062256 DF5 


001746 052717 53 ;READ HEADER AND DATA AFTER 


7A SEARCH CAUSED AN ERROR 
060626 
001752 062062 DT30 
001754 062311 DF 30 


0000000 SW NNN NN NNAARAXAXAHO 


ae kd ed ak ad kd od od od sd tS 
ee ek ed ed od od od a 2 od oa oo oo 
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—_ 
_) 
aR « 


7 ITEM 54 
001756 053005 EMS4 sATTEMPTED OPERATION WITH 


£6000 Bly GIVES WHAT SHOULD 


‘RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER OPERATION 
057771 


71TEM 55 
053252 EM55 ;WRITING/READING WITH EXPECTED 
ADDRESS OVERFLOW ERROR CAUSED 
; IMPROPER REGISTER CHANGE 
: GOOD a GIVES WHAT SHOULD 
RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER OPERATION 


BSLRGLSSLESELF 


057771 


ITEM 56 
001776 053540 EM56 ;DATA READ WITH AN EXPECTED 

ZADDRESS OVERFLOW ERROR IS 
; INCORRECT 
z;WORD NO 1 TO 260 SHQULD 
BE READ 
;WORD NOS 261 TO 265 SHOULD 
:NOT CHANGE DUE TO READ 

060626 

062062 

062311 


1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 


7 1TEM 57 
053750 EMS7 zATTEMPTING DATA COMMAND 
WITH WRONG FORMAT BIT CAUSED 
; IMPROPER REGISTER CHANGE 
OUR DATA GIVES WHAT SHOULD BE 


ERE 
SRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED DATA 
: TRANSFER 
002010 057771 
061762 
062256 


7; ITEM 60 
054242 EM60 ATTEMPTING TO MODIFY REGISTER 
;DURING AN OPERATION CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
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RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER OPERATION 
Sy COMPLETE 


:REG. ADDR. 

;GOOD DATA 

RECEIVED DATA 

;MODFING REGISTER 
002022 062114 DT60 7 SERRPC ,REGADR, $GDDAT , $BDDAT , $BDADR 
002024 062324 DF 60 :0,0,0,0,0 


7 1TEM 61 
002026 054651 EM61 DEVICE NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN 
002030 061234 DH6% oe OF JSR 
: J 


sRHDS1 
002032 062132 DT61 sSERRPC,.PCUSR,$BDADR 
002034 062332 DF61 30,0,0 


002020 


: ITEM 62 
002036 054651 EM61 2+ NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN 


:PC OF JSR 

;RHCS1 WAS 
002042 062144 DT62 ;SERRPC,.PCJSR,$BDADR 
002044 062336 DF62 30,0,0 


002040 061326 DH62 


7 ITEM 63 
002046 054735 EM63 :RHDS1 CONTENTS DURING 
; COMMAND WAS IN ERROR 
002050 057771 


002052 061762 
002054 062256 


ITEM 64 
002056 055010 EM64 ;RECALIBRATE COMMAND CAUSED 
; IMPROPER REGISTER CHANGE. 
4 ea GIVES WHAT SHOULD BE 


; THERE. 
sRECEIVED DATA GIVES WHAT WAS THERE 
;AFTER COMMAND 

057771 

061762 

062256 


7 1TEM65 


055227 ; INTERRUPT FAILING 
061401 sPC 
TEST NO 


CONTENTS OF RHCS1 
CONTENTS OF RHAS 
CONTENTS OF RHDS1 
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1296 002072 062156 DT65 ;SERRPC,TSTNM,CS1,AS,DS1 
Lf 3.44 002074 062342 DF65 :0,0,0,0,0 


7 1TEM66 
002076 055251 EM66 ;HEADER AND DATA COMMAND 
;FOR HEAD SELECTION TEST 
; CAUSED AN ERROR 
*RHDST GIVES WHAT TRACK 
:WAS A ty WRITTEN ON CYLINDER 0 


Seeessy 


Sees 


;RHCS2 
002102 062172 7 SERRPC ,DST,ER1,ER2,ER3,CS1,CS2 
002104 062347 viene? D :0,0,0,0,0,0,0 
002106 055462 E ;READ HEADER AND DATA ERROR 
IN HEAD SELECTION TEST 
[FIRST FOUR WORDS Sie HEADER 
SNEXT WORDS ARE DAT 
;GOOD DATA WORDS GIVE 
+ THE TRACK NUMBER IN 
:BITS 4,5,6,7,8 


WWWWWWANWWWNWWNAWAWWW 
ROPORQ @ 2S PS a oe 


002110 060626 

002112 062062 

002114 062311 D 
; 1TEM70 


002116 055736 E ;READ HEADER AND DATA ERROR 
IN DIFFERENCE LINE TEST 
;WORD NOS. 1-4 GIVE 
HEADER 
WORD NOS. 5-260 GIVE DATA 
;WHICH IS THE CYLINDER 
; ADDRESS 


NOUS WN OO OONAUSWN Oo 


WWW 
MMM 


; 
1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
; 
: 
1 
; 
; 
: 
; 
; 
1 
: 
1 
: 
} 
1 
; 
1 
1 


002120 060626 
002122 062062 
002124 062311 


;1TEM 71 
002126 056144 EM71 ig OPI CAUSED IMPROPER REGISTER 


C E 
: GOOD DATA GIVES WHAT SHOULD 
THERE 


“RECEIVED DATA GIVES WHAT WAS 
— AFTER 3 INDEX PULSES 


sREG. ADDR. 

:GOOD DATA 

RECEIVED DATA 
002132 061762 7 SERRPC ,REGADR, $GDDAT , SBDDAT 
002134 062256 :0,0,0,0 


002130 057771 


cach aed a eh and a ee en wen ee 
AAKEEKELKE 
—O OONAUSWI 
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1352 

1353 ; 1TEM72 

1354 002136 056405 EM72 ; THERE WAS AN ERROR 
1355 sAFTER A WRITE HEADER 
1328 AND DATA COMMAND 
1358 002140 061613 DH72 sPC 

1359 ;RHCS1 

1360 sRHCS2 

1361 ;RHDS1 

1362 sRHDST 

1363 sRHCA 

1364 ;RHER1 

1365 ;RHWC 

1366 002142 062214 DT72 sSERRPC,CS1,CS2,DS1,DST,CA,ER1 WC 
1367 002144 062360 DF72 :0,0,0,0,0,0.0,0 

1368 

1369 

1370 

1371 

1372 

1373 s 1TEM73 

1374 002146 056653 EM73 ;READING OVER 3 INDEX 
1375 ;PULSES CAUSED SC 
1376 002150 061613 DH72 

1377 002152 062214 DT72 

1378 002154 062360 DF72 

1379 

1380 > 1TEM74 

1381 002156 057023 EM74 ;READING OVER 3 INDEX 
1382 sPULSES CAUSED OPI 
1383 002160 061613 DH72 

1384 002162 062214 DT72 

t+ 002164 062360 DF72 
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;RH11 REGISTER BITS 


002166 000254 RPVEC: 254 ;RPO4 VECTOR ADDRESS 


;WORD COUNT REGISTER (RHWC) 
EACH BIT IS CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 
EACH BIT IS CALLED BY BIT NUMBER 


CONTROL AND STATUS REGISTER 2 (RHCS2) 


UNIT SELECT (BIT #0) 

UNIT SELECT (BIT #1) 

UNIT SELECT (BIT #2) 

;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
;UNIBUS B DC LO (BIT #4) 


cy 

[OUTPUT READY (BIT #7) 

[MASS BUS PARITY ERROR (BIT #8) 

[MISSED TRANSFER ERROR (BIT #9) 

PROGRAM ERROR (BIT 410) 

NON EXISTANT MEMORY (BIT #11) 

:NON EXISTANT DRIVE (BIT #12) 

;UNIBUS PARITY ERROR (BIT #13) 

WRITE CHECK ERROR (BIT #14) 
100000 100000 SDATA LATE (BIT #15) 


;DATA BUFFER REGISTER (RHDB? 
EACH BIT IS CALLED BY BIT NUMBER 
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;RPO4 REGISTER BITS 


CONTROL AND STATUS 1 REGISTER. (400) 


:GO (BIT #0) 
7 INTERRUPT ENABLE (BIT #6) 
SREADY (BIT #7) 
HIGH ORDER UNIBUS BITS (BIT #8) 
HIGH ORDER UNIBUS BITS (BIT #9) 
:PORT SELECT (BIT #10) 
DEVICE AVAILABLE (BIT #11) 
:MASSBUSS PARITY ERROR (BIT #13) 
000 ; TRANSFER ERROR (BIT #14) 
100000 100000 :SPECIAL CONDITION (BIT #15) 


REGISTER (RHDS1) (#01) 


000001 DRIVE FORWARD 5°'/SEC. (BIT #0) 

0002 [DRIVE FORWARD 20°'/SEC. (BIT #1) 
DRIVE TO INNER GAVRD BAND (BIT #2) 
3GO REVERSE (BIT #3) 
;DIFFERENCE LESS THAN 64 (BIT #4) 
DIFFERENCE EQUALS 1 (BIT #5) 
;VOLUME VALID (BIT #6) 
DRIVE READY (BIT #7) 
abe PRESENT (BIT #8) 

PROGRAMABLE (BIT #9) 

LAST SECTOR Lee 4 a (BIT #10) 


“ME #12) 
POSITIONING yee ty ah 7 PROGRESS (BIT #13) 
000 :COMPOSIT ERROR. (BIT #14) 
100000 100000 TATTENTION ACTIVE (BIT #15) 


ERROR REGISTER #01 (RHER1) (402) 
000001 ILF 1 ILLEGAL FUNCTION (BIT ny 
SILLEGAL REGISTER (BIT # 
SREGISTER MODIFICATION REFUSED (BIT #2) 
sPARITY ERROR (BIT #3) 
FORMAT ERROR (BIT #4) 
[WRITE CLOCK FAIL (BIT #5) 
ECC HARD ERROR (BIT #6) 
sHEADER COMPARE ERROR (BIT #7) 
;HEADER CRC ERROR (BIT #8) 
ZADDRESS OVERFLOW ERROR (BIT #9) 
= INVALID ADDRESS ERROR HH #10) 
WRITE LOCK ERROR (BIT #11) 
“DRIVE TIMING ERROR (BIT #12) 
SOPERATION INCOMPLETE (BIT #13) 
0000 DRIVE UNSAFE (BIT #14) 
100000 100000 :DATA CHECK ERROR (BIT 15) 


ZMAINTAINABILITY REGISTER (RHMR) (403) 
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DMD= 1 ;DIAGINOSTIC MODE (BIT #0) 
MCLK= 2 SMAINTAINABILITY CLOCK (BIT #1) 
MINX= 4 SMAINTAINABILITY INDEX (BIT #2) 
ao 18 :MAINTAINABILITY SECTOR CLOCK (BIT #3) 
MWR= 40 5 

DTSY= 1000 “MAINTAINABILITY SYNC DETECTED (BIT #9) 


sATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (404) 
DEVICE 


0 
1 
2 
3 
4 
5 
6 
f 


DEVICE 


;DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (41) 
;EACH BIT IS CALLED BY BIT NUMBER 


DRIVE TYPE REGISTER (RHDT) (#06) 
EACH BIT IS CALLED BY BIT NUMBER 


Mr 
aur 


;LOOK-AHEAD REGISTER (RHLA) (407) 


000001 EXTENSION 1 (BIT 
EXTENSION 2 (BIT 
EXTENSION 3 (BIT 
EXTENSION 4 (BIT 
sEXTENSION 5 (BIT 
EXTENSION 6 (BIT #5) 
SECTOR COUNT FIELD O (BIT 46) 
SECTOR COUNT FIELD 
SECTOR COUNT FIELD 
SECTOR COUNT FIELD 
SECTOR COUNT FIELD 
7TRACK FIELD 1 (BIT 
;TRACK FIELD 2 (BIT 
7 TRACK FIELD 3 (BIT 

40000 ;TRACK FIELD 4 (BIT 
100000 100000 TRACK FIELD 5 (BIT 
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CZRJJC.P11 


000020 
000040 


000200 
002000 
004000 
010000 


000001 
000002 
000010 


=. 
MACY11 "trae te 27-JUL-78 12:32 PAGE 34 
OR POINTER TABLE 


ERROR REGISTER #2 (RHCR2) (410) 


WwCU= WRITE CURRENT UNSAFE (BIT #0) 
CSF= ;CURRENT SINK FAILURE (BIT #1) 
WSU= 4 [WRITE SELECT UNSAFE (BIT #2) 
CSU= ; CURRENT SWITCH UNSAFE + “ii 
MSE= : [MOTOR SEQUENCE ERROR (BIT # 

TDF= ; TRANSITIONS DETECTOR FAILURE (BIT #5) 
TUF = [TRANSITIONS UNSAFE (BIT #6) 
FEN= :FAILSAFE ENABLED (BIT 47) 

WRU= :WRITE READY UNSAFE (BIT #8) 
MHS= 

NHS= 

IXE= 4000 : 1 

vuU30 ;30VOLT UNSAFE (BIT #12) 

PLU= 20000 PLO UNSAFE (BIT #13) 

ACU= 100000 ZACUNSAFE (BIT #15) 


OFFSET REGISTER (RHOF) (#11) 


OFFSET 25 MICRO INCHES (BIT #0) 
OFFSET 50 MICRO INCHES (BIT #1) 
OFFSET 100 MICRO INCHES (BIT #2) 
OFFSET 200 MICRO INCHES (BIT #3) 
OFFSET 400 MICRO INCHES (BIT #4) 
OFFSET 800 MICRO INCHES (BIT #5) 


OFFSET NEGATIVE (REVERSE) (BIT #5) 
HEADER COMPARE INHIBIT (BIT #10) 

ERROR CORRECTION CODE INHIBIT (BIT #11) 
FORMAT BIT (BIT #12 


DESIRED CYLINDER ADDRESS (RHCA) (412) 
EACH BIT IS CALLED BY BIT NUMBER. 


;CURRENT CYLINDER ADDRESS (RHCC) (413) 
;EACH BIT IS CALLED BY BIT NUMBER 


SERIAL NUMBER REGISTER (RHSN) (414) 
;EACH IS CALLED BY BIT NUMBER 


ERROR REGISTER #03 (RHER3) (415) 


PSU= 1 ;PACK SPEED UNSAFE ae a) 
VUF = 2 ;VELOCITY UNSAFE (BIT 
UWR= 10 SANY UNSAFE EXCEPT READ/WRITE (BIT #3) 


SEQ 0033 
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100000 
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;DISK PACK ROTATION ERROR (BIT #4) 
sAC LOW (BIT #5) 
:DC LOW (BIT #6) 

40000 ZSEEK INCOMPLETE (BIT #14) 

100000 OFF CYLINDER (BIT #15) 


ECC POSITION REGISTER (RHEC1) (416) 
;EACH BIT IS CALLED BY BIT NUMBER 


ECC PATTERN REGISTER (RHEC2) (417) 
;EACH BIT IS CALLED BY BIT NUMBER 


SEQ 0034 
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1617 -SBTTL REGISTER ADDRESSES 

1618 

1619 

1601 

1ec6 3RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE RH11 CONTROLLER 
1624 002170 176722 RHDB: 176722 ;DATA BUFFER 

1625 002172 176702 RHWC: 176702 ;WORD COUNT 

1626 002174 176704 RHBA: 176704 ;BUS ADDRESS 

1ese 002176 176710 RHCS2: 176710 CONTROL AND STATUS 2 

ie ;RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL) 
1631 002200 176700 RHCS1: 176700 CONTROL AND STATUS 1 

1632 002202 176714 RHER1: 176714 zERROR #1 

1633 002204 176706 RHDST: 176706 ;DESIRED SECTOR/TRACK ADDRESS 
1634 002206 176740 RHER2: 176740 ERROR #2 

1635 002210 176732 RHOF: 176732 SOF FSET 

1636 002212 176734 RHCA: 176734 : DESIRED CYLINDER ADDRESS 
1637 002214 176742 RHER3: 176742 ;ERROR #3 

1638 002216 176716 RHAS: 176716 SATTENTION SUMMARY 

1639 002220 176724 RHMR: 176724 :MAINTAINABILITY 

1640 002222 176712 RHDS1: 176712 [DRIVE STATUS 

1641 002224 176726 RHDT: 176726 ;DRIVE TYPE 

1642 002226 176730 RHSN: 176730 ; SERIAL NUMBER 

1643 002230 176744 RHEC1: 176744 sECC POSITION 

1644 002232 176746 RHEC2: 176746 ECC PATTERN 

1645 002234 176736 RHCC: 176736 CURRENT CYLINDER ADDRESS 

ry 002236 176720 RHLA: 176720 ; LOOK~AHE AD 

a | ZADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 
1650 002240 176750 RHBAE: 176750 ;BUS ADDRESS EXTENSION REGISTER 
oat 002242 176752 RHCS3: 176752 CONTROL AND STATUS REGISTER #3 
1653 

seas 3P-CLOCK (KW11-P) I/0 REGISTERS 

1656 002244 172540 PCLCSR: 172540 ;CONTROL AND STATUS REGISTERS 
1657 002246 172542 PCLBUF: 172542 [COUNT SET BUFFER 

1658 002250 172544 PCLCTR: 172544 ; COUNTER 


CZRJJCO, RPO4/ 
CZRJJC.P11 


002252 


kK 3 
5/6 FCTNL Dw MACY11 30A(1052) 27=JUL-78 12:32 PAGE 37 SEQ 0036 
26-JUL-78 10:0 REGISTER ADDRESSES 


THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES 
ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED 
:ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
FOR THE TIME JUST AFTER THE ‘RROR'’ ERROR COMMAND 
;DATA BUFFER 
;WORD COUNT 
;BUS ADDRESS 
; CONTROL AND STATUS 2 
;CONTROL AND STATUS 1 

RROR #1 


ERRO 
;DESIRED SECTOR/TRACK ADDRESS 
;ERROR #2 


OFFSET 
[DESIRED CYLINDER ADDRESS 
ROR #3 


:ER 

SATTENTION SUMMARY 

SMAINTAINABILITY 
[DRIVE STATUS 


3 TERN 
; CURRENT CYLINDER ADDRESS 
; LOOK~AHE AD 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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FUNCTION EQUATES 
;* TABLE OF FUNCTIONS FOR RHCS1 THEN ''GO"' BIT HAS TO BE SET 


NO OPERATION 

UNLOAD (STAND BY) 

;RECAL IBRATE 

:DRIVE CLEAR 

RELEASE (DUAL-PORT OPERATION) 
; SEARCH COMMAND 

;WRITE CHECK DATA 

;WRITE CHECK HEADER AND DATA 
sWRITE DATA 

WRITE HEADER AND DATA (FORMAT) 
READ DATA 

;READ HEADER AND DATA 

SEEK COMMAND 

OFFSET COMMAND 

;RETURNTO CENTERLINE 

PACK ACKNOWLEDGE 


: READ IN 
ILLEGL: . COMPUTED ILLEGAL FUNCTION 
*DATA BUFFER FOR READ WRITE 


000422 WRFROM: .BLKW 274. ;WRITE FROM THIS BUFFER 
000422 REINTO: .BLKW 274. READ INTO THIS BUFFER 


SEQ 0037 
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;RESERVED LOCATIONS FOR FLAGS AND INTERNAL PROGRAM CONTROL WORDS 


SAVE REGISTER ADDRESS HERE 
SAVE ERROR WORD NUMBER HERE 
; ; TEST NUMBER 
RP4VEC: [CONTAINS ADDRESS OF LOCATION 
[WHERE AN RPO4 INTERRUPT IS TO VECTOR TO 
THIS MUST BE MOVED INTO ‘RPVEC' TO BE 
EFFECTIVE. 


OF STVL: OFFSET VALUE USED IN OFFSET TEST 


SAVERE: . . ;BLOCK TO SAVE REGISTERS 
FINALA: 0 SAVE LOOK AHEAD REGISTER AT END OF OPERATION 
FINACC: SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION 


; TABLE FOR ATTENTION BITS 
ATTENTION TABLE 


002 004 ATABLE: .BYTE 1,2,4,10,20,40,100,200 
Boa 


RESERVED LOCATIONS FOR UNIT SELECT 


000010 UNITS: .BLKW 8. THIS IS FILLED WITH ~1 
000000 UNIT: .WORD 0 [UNIT UNDER TEST 
000000 NOUNIT: .WORD 0 [NUMBER OF UNITS PRESENT 
;USED TO KEEP TRACK OF UNIT UNDER TEST 
000000 NUNIT: .WORD 0 


;USED TO DETERMIN IF THERE ARE MORE 
THAN ONE UNIT 
000000 NOPUSH: 0 ALL ONES INDICATE NONE OF THE OPERATOR 
7 INTERVENTION TESTE WILL BE PERFORMED 
000000 SELECT: . ALL ONES INDICATE UNIT TO BE SELECTED 
000000 UNITSL: .WORD UNIT NO. SELECTED 


000000 ERFLG$: ;ERROR FLAG 


000000 FIRST: :1F ZERO WILL TYPE HEADER 
71F ONES WILL NOT TYPE HEADER 


000000 RP06: ;DEVICE TYPE FLAG 


000000 RH70: 7IF 1, PROGRAM IS RUNNING ON AN RH70 
7I1F 0, PROGRAM IS ON AN RH11 


000000 RUNCTR: . ;"RUN' LINE DELAY nn TO BE USED 
SWHILE THE SILO IS FILLING 
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000000 
000000 


000000 
000000 
000000 
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REGISTER ADDRESSES 


ATTENT: 0 
TOTALAT: 


ATTENTION BIT FOR PRESENT UNIT 
; TOTAL ATTENTION BITS 


; TEMP STORAGE 


; TEMP STORAGE 
; TEMP STORAGE 


‘ 
‘ 
s 
é 
$ 
‘ 
$ 
4 
$ 
< 
: 
‘ 
‘ 
‘ 
‘ 
‘ 
¢ 
( 
‘ 
4 
‘ 
‘ 
4 
4 
‘ 
d 
| 
4 
4 
4 
4 
4 
‘ 
‘ 
4 
4 
‘ 
4 
‘ 
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1790 - SBTTL 
-SBTTL *** DIAGNOSTIC CODE *** 
. SBTTL 


333 


-SBITL SETUP TESTS 


012737 177777 004624 BEGINI: MOV 4-1 , AANOPUSH ; JUMP OVER OPERATOR REQUIRED TESTS 
tees 004626 CLR @FSELECT ;DO NOT SELECT UNIT 


000412 BR START 
012737 177777 C04626 BEGIN2: MOV #-1 ,AASELECT ;SELECT UNIT 
005037 004624 CLR @ANOPUSH ;DO NOT JUMP OVER ANY TEST 
000404 BR START 
005037 004626 BEGIN: CLR @ASELECT ;DO NOT SELECT UNIT 
004624 CL @ANOPUSH ;DO NOT JUMP OVER ANY TEST 
;NORMAL RUN 


START: 


001100 MOV #SCMTAG,RO izFIRST LOCATION TO BE CLEARED 
(R6) + 7zCLEAR MEMORY LOCATION 
001140 we -R6 ;;DONE? 


: LOOP BACK IF NO 
AMSTACK, SP 73SETUP THE STACK POINTER 
000020 #SSCOPE , a# IOTVEC 2107 VECTOR FOR SCOPE ROUTINE 
#340, aM1OTVEC+2 ;:LEVEL 7 
#SERROR , AAEMTVEC EMT VECTOR FOR ERROR ROUTINE 
esd @WEMTVEC+2 ;:LEVEL 7 
#STRAP ,A#TRAPVEC :;TRAP_VECTOR FOR TRAP CALLS 
#340, aMTRAPVEC+2;LEVEL 7 
#SPWRDN, @#PWRVEC ; ;POWER_FAILURE VECTOR 
#340,a#PWRVEC+2 ;:LEVEL 7 
TIMES 3; INITIALIZE NUMBER OF ITERATIONS 
3:CLEAR THE ESCAPE ON ERROR ADDRESS 
;zALLOW ONE ERROR PER TEST 
. ¢¢ INITIALIZE THE LOOP ADDRESS FOR SCOPE 
001110 - -SLPE 3;SETUP THE ERROR LOOP ADDRESS 
SAVE ERROR VECTOR 
000004 #64$ , AAERRVEC SISET UP ERROR VECTOR 
#DSWR, SWR 72SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP.DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
177777 + 174030 #-1,aSWR 3;TRY TO REFERENCE HARDWARE SWR 
66$ : ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
65$ ;BRANCH IF NO TIMEOUT 
005122 : #65$, (SP) 7:SET UP FOR TRAP RETURN 


000176 001140 : ASWREG, SWR 3sPOINT TO SOFTWARE SWR 
0001°°4 001142 #DISPREG, DISPLAY 
012637 000004 5$ : (SP)+,aMERRVEC ;;RESTORE ERROR VECTOR 


BES RoR eS Saseee 


00 00 00 C0 CO CO CO CO CO CO 
pat tr Soar 
SW O 


— I oo 


1 
1 
1 
1 
1 
1 
1 
1 
; 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 


mM—COOONAUW 


BBW 


012737 000000 177776 #0,P sSeyY “sg Siae STATUS TO 0 
012737 000200 000036 #200. @ATRAPVEC+2 ; TRAP PRIORITY = 4 

013700 002166 @ARPVEC ,RO :GET RP VECTOR ADDRESS 

012720 036312 AMRPVECT,(RO)+  ;THIS IS FOR UNTIMELY INTERRUPTS 
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012710 000340 #340, (RO) ;RPO4 INTERRUPT SERVICE ROUTINE 
sPRIORITY = 7 


037340 PC ,AMSTKINT ; INITIALIZE THE TTY KEYBOARD 
004634 @AF IRST ZIS THIS FIRST TIME ROUND ? 
1$ ;DO NOT GIVE HEADER IF NOT 
BR 2$ ;GIVE HEADER IF SO 
005774 $ @ASND 1 7SKIP OVERALL PROGRAM HEADER 


005220 3eTYPE ASCIZ STRING 
BR 7$ 3;GET OVER THE ASCIZ 
005320 3-TYPE ASCIZ STRING 
BR 33GET OVER THE ASCIZ 


005356 sTYPE ASCIZ STRING 
BR 3;GET OVER THE ASCIZ 
005452 pas sTYPE ASCIZ STRING 


005546 +4 
33GET OVER THE ASCIZ 


005650 sz TYPE ASCIZ STRING 
BR ::GET OVER THE ASCIZ 
005736 iz TYPE ASCIZ STRING 
BR ::GET OVER THE ASCIZ 


177777 004634 : #~-1 AF IRST NEXT TIME DO NOT GIVE HEADER 


000042 a42 7sARE WE RUNNING UNDER XXDP/ACT? 
64$ ; BRANCH IF YES 
001140 000176 SwR ,ASWREG 3sSOFTWARE SWITCH REG SELECTED? 
65$ ; ;BRANCH IF NO 
3:GET SOFT-SWR SETTINGS 


BR 65$ 
112737 000001 001134 3 #1,$AUTOB 3:SET AUTO-MODE INDICATOR 
032777 010000 173100 : ASW12,aSWR ;LOOK TO SEE IF USING RH70 


001403 BE 3$ zIF SWi2 = 0, SKIP NEXT 
012737 000001 004640 #1, a4RH70 IF SWi2 = 1, CU IS AN RH70 
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012737 
012737 


013737 


033304 004506 
177777 040746 


004626 
006100 
177770 
004616 
004630 


004630 004616 


D 4 
MACY11 30A(1052) 27-JUL-78 12:32 PAGE 43 SEQ 0042 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


7*IS THERE A P=CLOCK (KW11-P) ON Le, _ ? 
z*IF SO MAKE ‘WAT’’ TRAPS GO TO ‘WAIT 

>*IF SO MAKE RPO4 INTERRUPTS GO TO TIME is 
:*IF NOT MAKE 'WAT' TRAPS GO TO ‘WAIT.T* 

7*IF NOT MAKE RPO4 INTERRUPTS GO TO ‘TIME 2° 


ane NEXT LINE IS TO BE ADDED LATER 
;*AND THE JUMP AND NOP REMOVED 
“FOR NOW NO CLOCK WILL BE USED 


:*MOV @A41$,QMERRVEC ;SET TIME-OUT VECTOR 


at a4v1$ ;DO NOT USE CLOCK 
N 
TST @4PCLCSR REFERENCE P-CLOCK STATUS REGISTER 
ZADDRESS = 172540 
MOV HWAIT.P,@A#STRPAD+20 ; THERE IS A P=CLOCK 
MTIME1,@A#RP4VEC ; THERE IS A P CLOCK SO 
;VECTOR TO TIME1 


2$ 
MWAIT.T,@A#STRPAD+20 ; THERE IS NO P-CLOCK 


ATIME2, @#RP4VEC ;MAKE RPO4/5/6 INTERRUPTS GO TO ‘TIME 2° 
#-1 ,APRITEM ;CLEAR PREVIOUS ITEM NUMBER 


@ASELECT sWAS IT A 200 START 
TST1 ;BRANCH IF STARTING FROM 200 
-65$ szTYPE ASCIZ STRING 
64$ ::GET OVER THE ASCIZ 


#177770, (SP) ONLY KEEP LAST 3 BITS 
(SP) , a@#UNIT SAVE UNIT TO BE TESTED 
(SP)+,@#UNITSL ;SAVE UNIT TO BE TESTED 
TST BRANCH IF STARTING FROM 200 
@AUNITSL,Q#UNIT ;SET UNIT NUMBER 
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TST1: 
001212 MOV AG pat 3;D0 1 ITERATION 
004504 2-1 ,QATSTNM + THIS SAVES TEST NUMBER 
001000 #STACK, SP ;SET UP STACK POINTER 
012737 040610 000030 #REGSA’ , aMEMTVEC: ; ERROR VECTOR SO THAT 
;NO REGISTERS ARE SAVED 
012737 006254 000004 #2$ ,AMERRVEC :SET UP FOR BUS TIMEOUT 


000024 ; THERE ARE 24 REG TO T 
002170 HDB [R1 NOW HAS ADDR ? ADDR ‘oF FIRST REG. 
READ HARDMARE REG 


OWN 
BRANCH IF 24 NOT DONE 

3$ ;BRANCH IF 24 DONE 
000006 000004 : HERRVEC+2,a#ERRVEC ag TRAP CATCHER 

(SP)+, (SP) + :CLEAN STA 
177776 001200 -2(R1), $TMP1  :STORE FAILING REG ADDR 

7 :REGISTER NON EXISTANT 
020000 172636 #SW13,aSWR S INHIBIT ERROR PRINTOUT ? 

4$ ;BRANCH IF YES 


006312 -65$ 7eTYPE ASCIZ STRING 
BR 64$ 3:GET OVER THE ASCIZ 


000204 MADDMOD,-(SP)  ;GET READY TO TYPE STARTING ADDRESS 


F ''CHANGE OF BASE ADDRESS'’ ROUTINE 


032574 : a4$EOP :GO TO END OF PROGRAM 


006464 000004 : ATRP,aA4 ; INITIALIZE VECTOR 
RH70 INIT RH INDICATOR ++ C.W 
ZADDRESS RPBAE (RH11/RH70?) 
FOUND AN RH70-SET MASK 
0064 34 7eTYPE ASCIZ STRING 
BR 33GET OVER THE ASCIZ 
ET OUT 


RTN 3G 
(SP) +, (SP) + ;ADJUST THE STACK 
006474 ,05$ ii TYPE ASCIZ STRING 
000413 64$ :GET OVER THE ASC1Z 
012737 040600 000030 : #$ERROR, awEMTVEC: RESTORE ERROR VECTOR 
:SO THAT REGISTERS ARE SAVED 
012737 000006 000004 MERRVEC+2, @#ERRVEC ;RESTORE TRAP CATCHER 
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000004 
012737 
012706 


013701 
012711 
105711 
001407 
011137 
00503 

010137 
104005 


000001 
001900 


002216 
177777 


001126 
001124 
004500 


MACY11 <i 


001212 


TST2: 


27-JUL-78 


SCOPE 
MOV 


#1,$TIMES 
ASTACK, SP 


@ARHAS ,R1 
ot Na 


TST3 

@R1 , AASBDDAT 
@ASGDDAT 

, 


F 4 
12:32 PAGE 45 SEQ 0044 
REFERENCE EACH REGISTER 


33D0 1 ITERATION 
SET STACK POINTER 


3R1 HAS ADDRESS OF RHAS 

;WRITE ALL ONES INTO RHAS 

sTEST IT FOR ALL O'S 

;BRANCH IF GOOD 

;BAD DATA 

:GOOD DATA 

;FAILING REG. RHAS 

;RHAS DOES NOT CLEAR BY WRITING ALL 
ZONES INTO IT 
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000004 TST3: SCOPE 
012737 009001 001212 MOV #1,$TIMES ;:D0 1 ITERATION 


012737 000003 004504 MO #4~-1 ,QATSTNM ; THIS SAVES TEST NUMBER 
SSTART WITH AN INIT 
037340 PC ,A#$TKINT sINITILIZE THE TTY KEYBOARD 


020000 172302 #SW13,aSWR : INHIBIT ERROR TYPEOUT? 
BN 4$ ‘BRANCH IF YES 
006646 +; TYPE ASCIZ STRING 
6 3:GET OVER THE ASCIZ 
002216 : . zR1 HAS ADDR. OF RHAS 
002176 A tale :R2 HAS ADDR. OF RHCS2 


CLEAR RHCS2 
000010 #8. ,RO ; COUNT 
002202 @ARHER1 ,R4 [R4 HAS ADDR. OF RHER1 
177777 : A#~-1 ,AR4 [MOVE ERRORS INTO RHER1 
= Con UNIT NO. 


1$ ;BRANCH IF 8 NOT DONE 
111137 004646 @R1,@ATOTALAT ;SAVE TOTAL ATTENTION 
[USED IN DRIVE CLEAR TEST 
105037 004647 @ATOTALAT+1 [CLEAR UPPER BYTE 
105711 aR1 TEST FOR ANY DRIVES PRESENT 
001402 2$ 71F NONE THERE - SAY SO 
000137 007346 XE2 ;SOME THERE - LOAD TABLE 


032777 020000 172142 ; #SW13,aSWR ; INHIBIT ERROR TYPE OUT? 

001402 3$ ;BRANCH IF NO 

000137 007704 SELTST ;CHECK FOR SELECTED UNIT START AND LOAD 
7" UNITS’ TABLE WITH DESIRED DRIVE IF SO 


104401 007012 :: TYPE ASCIZ STRING 
000421 B ; 
007062 


007150 


B =. 
007236 STYPE ASCIZ STRING 
B 3GET OVER THE ASCIZ 


032574 
;*SET UP THE UNITS TABLE 


000010 2$: #8. RO : COUNTER 
004576 HUNITS,R3 “POINTER 
177777 : #-1, (R3)+ :PRESET BLOCK TO ALL ONES 


RO 
3$ BRANCH IF 8 NOT DONE 
004576 ApaTS.M3 POINTER 
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005037 004620 @ANOUN I T NO. OF UNITS PRESENT 
012700 000010 #8. ,RO ; COUNTER 

011137 aR1, a4$TMPO ; TEMPORARY STORAGE 

006037 : a#$TMPO [SET CARRY IF ONE IN 0 BIT 

103120 5$ CHECK NEXT UNIT IF ONE NOT IN BIT O 


010577 172554 R5,@RHCS2 : INSERT UNIT ge = UA Testa 
024020 172574 ens RPO4 ? 


6 : ; IF 50 
020020 172564 #20020, @RHDT ce THIS A SINGLE PORT RPO4 ? 
6$ TYPE NO. IF SO 


024021 172554 #24021 ,@RHDT 31S_THIS A DUAL PORT RPO5 ? 
6 STYPE DRIVE NO. IF SO 

020021 172544 #20021,@RHDT ZIS THIS A SINGLE PORT RPOS ? 
6$ ; TYPE THE NO. IF SO 


024022 172534 #24022 ,ARHDT 31S THIS A DUAL PORT RPO6 ? 
6$ i: TYPE DRIVE NO. IF SO 

020022 172524 #20022, @RHDT 715 THIS A SINGLE PORT RPO6 ? 
6$ ;TYPE DRIVE NO. IF SO 


007510 E ,65$ 2a TYPE ASCIZ STRING 
64$ ;GET OVER THE ASCIZ 
R5,~-(SP) [GET READY TO TYPE UNIT NUMBER 


007542 -67$ 33 TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


66$ : 
172442 MOV @RHDT , = (SP) ;GET READY TO TYPE RHDT 


007572 TYPE ASCIZ STRING 
6 SIGET OVER THE ASCIZ 
3NO RPO4/RPO5/RPO6 FOUND SO INCR TABLE 


; MO R5,(R3)+ 
001223 -$CRLF 
MOV 


R5,-(SP) 
; TYPE DRIVE NO. 
005237 004620 NUMBER OF DRIVES 


005205 : : INCR UNIT NUMBER 
005300 :DECR NO. OF UNITS LOOKED AT 
001252 TEST THE NEXT UNIT 


013737 004576 004616 Q4UNITS,@#UNIT ;SET UNIT NO. TO FIRST ONE FOUND/OR 0 
013737 004620 004622 V @ANOUNIT,Q#NUNIT ;SAVE NO. OF UNITS 
005337 004622 @ANUNIT 71F NUNIT = 0 THEN ONLY ONE UNIT 

7; 1F NUNIT > 0 THEN MORE THAN ONE UNIT 


005737 004626 SELTST: @ASELECT STARTING ADDRESS 200 ? 
001403 B TST4 BRANCH IF STARTING FROM 200 
013737 004630 004616 @AUNITSL ,@#UNIT ;SET UNIT NUMBER 
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010006 
010012 
010014 
010020 


010022 


010172 


010174 
010200 


010204 


010210 


010242 
010250 
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012700 
005720 


022710 


011037 
005337 


013700 


005037 


000403 
012737 


CTRLR2 MACY11 or, 


10:07 


000901 
010622 


001000 
000004 
033072 
004644 


004616 


000041 
000011 


004626 


004576 


177777 


010030 
010126 


004616 
004620 


004616 


ose 
024022 171776 
020022 171766 


177777 004636 


27-JUL=78 12: 3) 


AGE 48 
TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


SCOPE 
MO 


#1,$TIMES 
#1$,$LPADR 


ASTACK , SP 
#4 ,aATSTNM 


PC ,aACLDISK 
@AATTENT 


20$ 
@ASELECT 
19$ 


SEQ 0047 


3:D0_ 1 ITERATION 
;:SET SCOPE LOOP ADDRESS 


RESET STACK 

SAVE TEST NUMBER 

SET R1-RHCS1, R2=-RHCS2 

CLEAR UNIT UNDER TEST ATTENTION 


31S THE "UNIT'' = 0 ? 
;1F NOT, SKIP NEXT MODS 
IF SO, CHECK THE LOAD MEDIA LOCATION 
[WAS IT AN RPO4/5/6 ? 
Z1F NOT, GO AHEAD AND TEST UNIT #0 
[WAS UNIT #0 SELECTED ? 
3(1E. 210 START ?) 
SIF SO, CHANGE PACK 


;* INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
7*& DECREMENT ‘NOUNITS'' PRESENT TO BE TESTED 


MOV 
TST 


Cee ths RO 
(RO) + 


#-1,(RO) 
18$ 


(RO) , @AUNIT 
@ANOUNI TS 


@FUNIT ,RO 


@ARPO06 
RO, @RHCS2 
#24022 ,@RHDT 


2$ 
#20022 ,aRHDT 
2$ 


3$ 
#-1 , @ARPO6 


:1F NOT, LOAD THE UNITS i POINTER 
;SELECT THE NEXT UNIT IN TABLE 

; (DOUBLE INCREMENT THE POINTER, RO) 
TIS THERE ANOTHER TABLE ENTRY PRESENT ? 
7I1F SO, USE NEXT DRIVE & DECR ‘NOUNITS'’ 
7 1F NOT, CHANGE PACK ON UNIT #0 


3zTYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
3zTYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
CONTINUE, USING SCRATCH PACK ON UNIT #0 


;SET UP NEW UNIT UNDER TEST 
;DECR BECAUSE UNIT 40 WON'T BE TESTED 


7RO NOW CONTAINS UNiT NO 


;CLEAR RPO6 DEVICE TYPE FLAG 
>SET UP UNIT a 
; SINGLE PORT — ? 


sVYES...SET 
:DON'T SET RPO FLAG 
SET THE FLAG 


ASSUME THE NEXT UNIT IS AN RPO4/RPOS 
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NY 


010250 116037 004566 004644 ae as ;SET APPROPRIATE ATTENTION BIT 
010264 69% TYPE ASCIZ STRING 
68$ GET OVER THE ASCIZ 
004616 @FUNIT , = (SP) ;UNIT NO. TO STACK 
:TYPE DRIVE NO. 
010330 .71$ : 3 TYPE ASCIZ STRING 
70$ 3GET OVER THE ASCIZ 
171652 @RHSN, ~ (SP) 7:SAVE @RHSN FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
010364 .73$ 73 TYPE ASCIZ STRING 
72$ 3GET OVER THE ASCIZ 
171614 MO @RHDT , = (SP) T:SAVE @RHDT FOR TYPEOUT 
3:GO TYPE=-OCTAL ASCII(ALL DIGITS) 


’ 
é 
é 
é 
{ 
‘ 
é 
: 
‘ 
{ 
, 
{ 
{ 
{ 
, 
} 
4 
‘ 
‘ 
‘ 
‘ 
( 
‘ 
4 
‘ 
‘ 
‘ 
‘ 
4 
‘ 
| 
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;*TYPE OUT THE DRIVE TYPE IN ASCII 


010412 022777 024020 171604 #24020, @RHDT ;DUAL PORT RPO4 ? 
4$ TYPE ASCII MESSAGE OUT 

020020 171574 #20020 ,@RHDT [SINGLE PORT RPO4 ? 

4$ ; TYPE THE MESSAGE 


024021 171564 #24021, @RHDT ;DUAL PORT RPOS ? 
ZTYPE THE MESSAGE 

020021 171554 #20021, @RHDT ZSINGLE PORT RPOS 7 
5$ STYPE THE MESSAGE 


024022 171544 #24022 ,,aRHDT ;DUAL PORT RPO6 ? 
6$ TYPE THE MESSAGE 

020022 171534 #20022 ,aRHDT SINGLE PORT RPO6 ? 
6$ TYPE THE MESSAGE 


010500 75$ ::TYPE ASCIZ STRING 
74$ t:GET OVER THE ASCIZ 
1$ :SKIP NEXT ONES 


010536 ,77$ si: TYPE ASCIZ STRING 
BR 76$ *°GET OVER THE ASCIZ 
1$ ‘SKIP NEXT 


104401 010574 : _79$ ::TYPE ASCIZ STRING 
000413 B 78$ *°GET OVER THE ASCIZ 


005777 i : @RHSN ;READ SERIAL NO. AND DRIVE TYPE 

005777 2 @RHDT THESE TWO ARE TO HELP SCOPE LOOPS 

017737 002310 @RHSN , @A'SN [SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 
017737 002306 @RHDT , @ADT [SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 
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oO 
™N 
ND 


000004 TST5: SCOPE 
012737 000005 004504 MOV #6-1,a4TSTNM THIS SAVES TEST NUMBER 


033072 PC ,a@#CLDISK GIVE INITILIZE 
010000 #MOL , aR3 CHECK MOL IN RHDS1 
BN ;BRANCH IF MOL HIGH 
010676 :3 TYPE ASCIZ STRING 
R . 


010744 


011022 o3 
:;GET OVER THE ASCIZ 
010000 : :CHECK MOL IN RHDS1 
1$ sWAIT IF MOL IS STILL LOW 
011120 sz TYPE ASCIZ STRING 
:;GET OVER THE ASCIZ 


ee ee ee ey ee Ee ee ee” ee ee ee ee ee ee ee ee a a eh Ue UU UT le UO UU Ue Oe Ue UO UY ea 
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2224 
2225 011200 000004 TST6: SCOPE 
5557 011202 012737 000006 004504 MOV #7-1,a#TSTINM — : THIS SAVES TEST NUMBER 
2228 011210 012706 001000 MOV #STACK, SP “RESET STACK 
2229 011214 004737 033072 JSR PC ,a#CLDISK SET R1-RHCS1, R2=RHCS2 
2231 011220 013700 002166 MOV @ARPVEC RO :GET RP VECTOR ADDRESS 
2232 011224 012720 011272 MOV #RPTRP1.(RO)+ THIS IS FOR TIMELY INTERRUPTS 
2235 011230 012710 000340 MOV #340, (RO) :RPOS INTERRUPT SERVICE ROUTINE 
5535 011234 012737 000200 177776 MoV #200,PS <SET PROCESSOR PRIORITY a 4 
$538 011242 012711 000300 MOV #RDY'IE,aR1 sRDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 
5538 011246 013737 033570 001200 MOV a#TIMCNT ,a#$TMP1 ; COUNTER 
2239 011254 005337 001200 1$: DEC aASTMP1 ;WAIT FOR INTERRUPT 
3240 011260 001375 BNE 1$ “BRANCH IF NOT ZERO 
2241 ‘BEF ORE THIS IS ZERO INTERRUPT SHOULD OCCUR 
5342 011262 104065 ERROR 65 ‘INTERRUPT DID NOT OCCUR 
5543 011264 012712 000040 MOV #CLR.@R2 “CLEAR CONTROLLER VIA CS2 
2244 011270 000407 BR TST7 “BRANCH TO NEXT TEST -------------- ) 
2246 011272 022626 RPTRP1: CMP (SP)+, (SP) + ;RESTORE STACK 
3247 011274 022711 004200 CMP #DVA'RDY,aR1 IE SHOULD BE LOW 
2248 011300 001403 BEQ TST7 sCONTINUE IF GOOD ---<<---------- ) 
3249 011302 104065 ERROR 65 INTERRUPT OCCURED BUT 
2250 ;IE FAILED TO RESET 
2251 011304 012712 000040 MOV ACLR,@R2 “CLEAR CONTROLLER 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
é 
“¢ 
- 
¢ 
é 
q 
¢ 
. 
q 
4 
{ 
< 
‘ 
{ 
{ 
¢ 
‘ 
( 
é 
4 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
4 
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011310 000004 


011312 012737 000007 #10-1,a4TSTNM =; THIS +t i TEST NUMBER 
011320 012706 001000 ASTACK, SP ;RESET 
011324 004737 033072 PC ,@4CLDISK 3 SET RISRHCST, R2-RHCS2 


213700 @HRPVEC RO GET RP VECTOR ADDRESS 
942720 #RPTRP2.(RO)+ THIS IS FOR UNTIMELY INTERRUPTS 
012710 #340, (RO) :RPOS INTERRUPT SERVICE ROUTINE 
011344 012737 177776 #240,PS “SET PROCESSOR PRIORITY = 5 
011352 012711 000300 #RDY'IE,aR1 “RDY, IE IN RHSC? WHOULD CAUSE INTERRUPT 


011356 013737 033570 001200 @4TIMCNT ,A#STMP1 ; COUNTER 
011364 001200 : a4STMP 1 WAIT FOR INTERRUPT 
011370 1$ BRANCH IF NOT ZERO 
;BEFORE THIS IS ZERO INTERRUPT WHOULD OCCUR 
011372 012712 000040 ACLR,AR2 CLEAR CONTROLLER 
011376 000404 TST10 ;NO INTERRUPT SO CONTINUE 


011400 022626 RPTRP2: CMP (SP)+, (SP)+ RESTORE STACK 

011402 104065 E 65 ; INTERRUPT OCCURRED WITH 
sPROCESSOR PRIORITY SAME AS DISK 

011404 012712 ACLR,AR2 :CLEAR CONTROLLER 


2 
2 
2 
2 
2 
2 
2 
2 
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2 
2 
2 
2 
2 
2 
2 
2] 
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2 
2 
2 
2 
2 
2 
2 
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011410 000004 TST10: SCOPE 


3*IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP 
;*OR POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 
011412 RESET 


000005 
011414 004737 037340 PC ,Q#$STKINT sINITILIZE TK 
011420 012737 000000 177776 #0,PS 


011426 MSTACK, SP RESET STACK 
004504 #10, a4TSTNM SAVE TEST NUMBER 
PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
PC ,@#CHECK CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
057176 ,CPHALT CANNOT CONTINUE TESTS IF THEY DON'T 
7STOP TESTING 
002360 170574 @APKACK,@RHCS1 GET READY FOR PKACK 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 
033240 RO, @#SAVER SAVE REGISTERS 
C ;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
011474 18. NUMBER OF REGISTERS 
011476 013777 004506 170462 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002360 @APKACK,-(SP)  ;GET READY TO MOVE COMMAND 
000001 #GO, (SP) :GET READY TO SET GO 


170460 (SP) +, @RHCS1 :GO WITH 
aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR VV BIT TO SET 

WAIT FOR RHDS1 REGISTER 

;WAIT FOR VV BIT IN RHDS1 REGISTER 
;ALLOW 10 MICRO SECONDS 


. :VV MUST SET BETWEEN 
002360 @APKACK,-(SP)  ;SAVE COMMAND 
004200 ADVA!RDY,(SP) ;INCLUDE DVA!RDY 
001124 (SP) ,@ASGDDAT ;SAVE FOR PRINTOUT 
gages ; DURING rt eset ONLY DVA!RDY 


6 BRANCH IF 
001126 RO, a#$BDDAT BAD DATA 
004500 R1,@4REGADR FAILING REGISTER RHCS1 
21 : G ABOVE OPERATION ONLY 
010700 : AMOL !DPR!DRY!VV, ;SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP),a#SGDDAT —;SAVE FOR PRINTOUT 
laa SDURING ABOVE OPERATION ONLY MOL !DPR!DRY!VV 


66 BRANCH IF GOOD 
001126 R5,@4$BDDAT ;BAD DATA 
004500 R3,@4REGADR FAILING REGISTER nytt 
63 [DURING ABOVE OPERATION ONLY 
033762 JS RO, @ACHREG ; CHANGE BITS IN SAVED REGISTER 
; CHANGE RHDS1 REGISTER 
31 BIT/BITS TO BE CHANGED 
NEW VALUE OF VV IS 1 
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C2RJJC.P11 26-JUL-78 10:07 710 SET VV BIT 46 IN RHDS1 


011630 000100 VV ; CHANGE VV BIT 


3*NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
*WITH AFTER PACK ACKNOWLEDGE 


011632 004037 034070 RO, @#COMREG COMPARE SAVED REGISTERS WITH 
004512 ERE GOOD DATA SAVED IN ‘SAVERE" 
TEST DATA STARTING FROM ‘RHWC" 
318. REGISTERS TO BE COMPARED 
:RETURN TO 1$ ON ERROR 
011654 ;RETURN TO 2$ ON NO ERROR 


011650 104015 : :GIVING A PACK ACKNOWLEDGE 
011652 000207 ; CAUSED AN ERROR 
PACK ACKNOWLEDGE SHOULD 
SET VV IN RHDS1 
; INTERRUPT SHOULD MAKE 


:1E =_0 
ZNO OTHER REGISTERS SHOULD 
; CHANG 


E 
[GOOD DATA GIVES CONTENTS 
OF REGISTER BEFORE COMMAND 
;RECEIVED DATA GIVES CONTENTS 
011654 OF REGISTER AFTER COMMAND 
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-SBTTL DATA TRANSFER RELATED ERRORS (USING MEDIA) 


011654 000004 TST11: SCOPE 
001000 MOV ASTACK, SP RESET STACK 
000011 004504 MOV #11,a4TSTNM SAVE TEST NUMBER 
033072 JSR PC ,@4CLDISK SET R1=-RHCS1, R2=RHCS2 


7*CHECK THE DRIVE TYPE AND THEN FILL THE 
;*WRITE FROM BUFFER WITH APPROPRIATE HEADER 
004636 TST @ARPO6G =; TEST FOR RPO6 DRIVE 
BEQ 11$ TREAT UNIT AS AN RPO4 
; TREAT UNIT AS AN RPO6 


032716 JSR RO, AF LHEAD ZSAVE HEADER DATA IN WRFROM 
WRF ROM : LOCATION WHERE SAVED 
5 S NUMBER OF WORDS SAVED 
11456 ;FIRST DATA WORD 
<18.*400>!<21.> : SECOND DATA WORD 
0 z THIRD DATA WORD 
0 sFOURTH DATA WORD 
<26.*2000>!<18.*40>!<21.> sFIFTH DATA WORD 
BR 12$ s CONTINUE WITH SET UP 


&S 


i ie ie me PP 
oO KSNOKLNOS 


032716 JSR RO, QF LHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 
5 NUMBER OF WORDS SAVED 
zFIRST DATA WORD 


10632 
<18.*400>!<21.> ;SECOND DATA WORD 
0 ; THIRD DATA WORD 
000000 0 ;FOURTH DATA WORD 
065125 <26.*2000>!<18.*40>!<21.> FIFTH DATA WORD 


7*FILL READ INTO BUFFER WITH ALL ONES 


004037 032742 JSR RO,@ACLAREA CLEAR 256 WORDS, FROM REINTO 
REINTO STARTING FROM REINTO 
256 3256 WORDS 

177777 -1 FILL WITH =1 
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*DRIVE TYPE IS CHECKED AND THEN THE APPROPRIATE 
;*WRITE HEADER AND DATA COMMAND IS LOADED 


011762 005737 004636 @ARPO6 =; TEST FOR RPO6 DRIVE 
011766 001412 7$ ; TREAT UNIT AS RPO4 


011770 004037 035054 RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
° a 814. 
21. sSECTOR 21. 
18. ; TRACK 18. 
[WORD COUNT (DATA) = 1 + 
[BUS ADDRESS 
;DO0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
:GET READY TO DO A WRIFOR 
012012 BR 8$ [CONTINUE WITH TEST 


012014 : 
035054 RO, @4#RUN :SETUP TO RUN FOR DATA COMMAND 
CYLINDER 410. 
21. SECTOR 21. 
18. ;TRACK 18. 
[WORD COUNT (DATA) = 1 + 
[BUS ADDRESS 
;DO NOT INHIBIT BUS a INCREMENT 
316 BITS PER WORD FORMA 
:GET READY TO DO A WRTFOR 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 


033240 RO, @#SAVER poe, REGISTERS 
WC HWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
[NUMBER OF REGISTERS 


033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ~CPHALT on TESTING IF NOT 
ee 170076 @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 
@AWRIFOR,-(SP) GET READY TO MOVE COMMAND 
#GO'TE, (SP) GET READY TO SET GO AND 
012677 170074 (SP)+,@RHCS1 [GO WITH 


3*TIME IS NOT CRITICAL HERE 
104413 WAT WAIT FOR LBT BIT TO SET 
‘WAIT FOR RHDS1 REGISTER 
[WAIT FOR LBT BIT IN RHDS1 REGISTER 
;ALLOW 25000 MICRO SECONDS 
;LBT MUST SET BETWEEN 


;*NOW CHANGE tk REGISTERS TO EXPECTED yr, 
004037 032774 JSR RO,@AF ILLRE ;MOV_0 INTO SAVED RHWC 
002172 RHWC SAVED REGISTER TO CHANGE 
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012174 


012176 


012212 


012214 
012216 


012220 


104045 
000207 


032774 


033762 


033762 


032774 


034070 
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F 
27-JUL-78 12:32 PAGE 58 
LAST BLOCK TRANSFERED=RHDS1 LBT 


0 
JSR 
R 


ERROR 
RTS 


RO, @4F -LLR 


HBA 
WRF ROM+<5*2> 


RO, @4CHREG 


E 


OMREG 


45 
PC 


;DATA 
sMOV WRFROM+<5*2> INTO SAVED RHBA 


; SAVED or tg TO CHANGE 


DA 
;CHANGE BITS IN SAVED REGISTER 
; CHANGE RHDS1 REGISTER 


31 BIT/BITS TO BE CHANGED 

NEW VALUE OF LBT IS 1 

; CHANGE LBT BIT 

CHANGE BITS IN SAVED REGISTER 
CHANGE RHCA REGISTER 


:1 BIT/BITS TO BE ein 

:NEW VALUE OF BITO IS 1 
;CHANGE BITO BIT 

[MOV 0 INTO SAVED RHDST 
;SAVED REGISTER TO CHANGE 


:DATA 


;COMPARE SAVED REGISTERS WITH 
ZGOOD DATA SAVED IN "SAVERE' 


:TEST DATA STARTING FROM 'RHWC' 
317. REGISTERS TO Be COMPARED 
RETURN TO 1$ ON ERROR 

;RETURN TO 2$ ON NO ERROR 


;WRITING ON THE LAST BLOCK 

IE. CYLINDER 410./814., SECTOR 21 
; TRACK 18 CAUSED 

; IMPROPER REGISTER CHANGE 


:GOOD DATA GIVES WHAT 
SHOULD BE THERE 
TRECEIVED DATA GIVES WHAT 
;WAS THERE AFTER WRITE 


[ON LAST BLOCK 


SEQ 0057 





C2 
C2 


CZRJJCO, RPOS/5/6 FCTNL crane 


CZRJJC.P11 


012220 
012220 


012224 


012246 


012250 
012254 


012256 


012324 


012324 


012350 


26-JUL-78 


005737 
001412 


002346 


004037 


000000 
013777 


10:07 


033072 


032716 


032742 


004636 


035054 


035054 


033240 


033152 
057176 


004506 
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111 LAST BLOCK TRANSFERED=-RHDS1 LBT 


7*NOW A READ DATA WILL BE DONE ON SAME CYLINDER, SECTOR & TRACK 
7*CLEAR ANY PREVIOUS ERRORS 
JSR PC,@4CLDISK 3SET R1-RHCS1, R2=-RHCS2 


z*FILL WRITE FROM BUFFER WITH EXPECTED DATA 
JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 
1 NUMBER OF WORDS SAVED 
<26.*2000>!<18.*40>!<21. ;FIRST DATA WORD 
@ACLAREA CLEAR 256. WORDS, FROM WRFROM+2 
£256. STARTING FROM WRFROM+2 


WORDS 
FILL WITH 0 


*FIRST THE DRIVE TYPE IS CHECKED AND THEN THE APPROPRIATE 
;*READ COMMAND IS LOADED 


@ARPO6 =; TEST FOR RPO6 DRIVE 
9$ ; TREAT UNIT AS RPO4 


RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 814. 

ays SECTOR 21. 

18. TRACK 18. 
[WORD COUNT = 256. 
[BUS ADDRESS 
;DO NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
[GET READY TO DO A READAT 

10$ [CONTINUE WITH TEST 


RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 410. 
1 ;SECTOR 21 


‘DO NOT INHIBIT BUS ADDRESS INCREMENT 
°16 BITS PER WORD FORMAT 
READAT ‘GET READY TO DO A READAT 


i*SAVE REGISTERS FOR COMPARISON AFTER READ DATA 
JSR RO, @#SAVER Some: REGISTERS 
;RHWC IS THE FIRST Se SAVED 


iN 
PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
CPHAL T 3 CANA +» CONT INUE TESTING IF NOT 


STCP 
167610 @ARPAVEC ,@RPVEC :SET RPO. VECTOR ADDRESS 


SEQ 0058 





CZ 
C2 
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CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL-78 12:32 PAGE 60 SEQ 0059 


CZ2RJJC.P11 26-JUL-78 10:07 111 LAST BLOCK TRANSFERED-RHDS1 LBT 
2557 012356 013746 002346 MOV @AREADAT,=-(SP) ;GET READY TO MOVE COMMAND 
2558 012362 052716 000101 BIS AGO!IE, (SP) ;GET READY TO SET GO AND 
Se 012366 01267? 167606 MOV (SP) +,@RHCS1 GO WITH 
2561 i IS NOT CRITICAL HERE 
2562 012372 104413 WAIT FOR RDY BIT TO SET 
2563 012374 002200 AACS WAIT FOR RHCS1 REGISTER 
2564 012376 000200 RDY [WAIT FOR RDY BIT IN RHCS1 REGISTER 
2565 012400 001614 908. ;ALLOW 9080 MICRO SECONDS 
$206 012402 001502 834. ;RDY MUST SET BETWEEN 
Seen 3 *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
2570 012404 004037 032774 JSR RO, @4F ILLRE sMOV O INTO SAVED RHWC 
2571 012410 002172 RHWC ;SAVED REGISTER TO CHANGE 
2572 012412 000000 0 DATA 
2573 012414 004037 032774 JSR RO, @4F ILLRE SMOV REINTO+<256.*2> INTO SAVED RHBA 
2574 012420 002174 RHBA 7 SAVED geist a TO CHANGE 
2575 012422 004434 RE INTO+<256, *2> DATA 
2576 012424 004037 033762 JSR RO, @#CHREG :CHANGE BITS IN SAVED REGISTER 
2577 012430 002222 RHDS1 SCHANGE RHDS1 REGISTER 
2578 012432 000001 1 31 BIT/BITS TO BE CHANGED 
2579 012434 000001 1 NEW VALUE OF LBT IS 1 
2580 012436 002000 LBT ; CHANGE LBT BIT 
2581 012440 004037 033762 JSR RO, @A#CHREG ZCHANGE BITS IN SAVED REGISTER 
2582 012444 002212 RHCA CHANGE RHCA REGISTER 
2583 012446 000001 1 31 BIT/BITS TO BE CHANGED 
2584 012450 000001 1 SNEW VALUE OF BITO IS 1 
2585 012452 000001 BITO CHANGE BITO BIT 
2586 012454 004037 032774 JSR RO, a4F ILLRE :MOV_ 0 INTO SAVED RHDST 
2587 012460 002204 RHDST ;SAVED REGISTER TO CHANGE 
Soe 012462 000000 0 sDATA 
2590 ;*COMPARE ALL — 
2591 012464 004037 034070 JSR RO, @4COMREG COMPARE SAVED REGISTERS WITH 
2592 012470 004512 SAVERE :GOOD DATA SAVED IN ‘SAVERE* 
2593 012472 002254 wC ZTEST DATA STARTING FROM 'RHWC' 
2594 012474 000022 18. 318. REGISTERS TO BE COMPARED 
2595 012476 012502 3$ RETURN TO 3$ ON ERROR 
So 012500 012506 4$ ;RETURN TO 4$ ON NO ERROR 
2598 012502 104045 3$: ERROR 45 READING ON LAST BLOCK IE. 
2599 012504 000207 RTS PC CYLINDER 410./814., SECTOR 21, TRACK 18 
2600 ; CAUSED AN ERROR 
2601 ; GOOD DATA GIVES WHAT SHOULD 
2602 BE THERE 
2603 SRECEIVED DATA eis WHAT 
2604 WAS THERE AFTER READ 
2605 FROM LAST BLOCK 
2606 
2607 ;*READ DATA WILL BE COMPARED 
2608 012506 4$: 
2607 012506 004037 035120 JSR RO, @ACOMPAR COMPARE TWO BLOCKS OF MEMORY 
2610 012512 002370 WRF ROM :GOOD DATA STARTS FROM WRF ROM 
2611 012514 003434 REINTO TEST DATA STARTS FROM REINTO 


2612 012516 000400 256. 3256., WORDS TO BE COMPARED 





I 5 
See RP04/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL=78 12:32 PAGE 61 SEQ 0060 
CZRJJC.P11 26-JUL=78 10:07 111 LAST BLOCK TRANSFERED=RHDS1 LBT 


012520 012524 5$ ;RETURN TO 5$ ON ERROR 
012522 012530 6$ RETURN TO 6$ ON NO ERROR 


012524 104046 : ERROR ;DATA READ FROM 
012526 000207 RTS ;LAST BLOCK IN ERROR 


012530 
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CZRJJCO, RPO4/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL-78 12:32 PAGE 62 SEQ 0061 
CZRJJC.P11 26-JUL~-78 10:07 711 LAST BLOCK TRANSFERED=-RHDS1 LBT 


012530 000004 TST12: OPE 
012532 012706 001000 MO ASTACK, SP RESET STACK 
012536 012737 000012 004504 #12, QA4TSTNM SAVE TEST NUMBER 
012544 004737 033072 , @#CLDISK ;SET R1-RHCS1, R2=-RHCS2 
"GET HEADS TO eS 0 
012550 004737 033152 JSR PC ,@#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
012554 104401 057176 - CPHALT 3; CANNOT CONTINUE TESTING IF NOT 
012560 000000 :STOP TEST 


012562 013777 004506 167376 @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


012570 013746 002326 @ARECALI,-(SP) ;GET READY TO MOVE COMMAND 
000101 #GO!IE, (SP) ;GET READY TO SET GO AND 
167374 (SP)+,@RHCS1 :GO WITH 
:WAIT FOR RDY BIT TO SET 
WAIT FOR RHDS1 REGISTER 
;WAIT FOR RDY BIT IN RHDS1 REGISTER 
. ;ALLOW 56000 MICRO SECONDS 
012614 012737 . sRDY MUST SET BETWEEN 


012616 004737 033072 PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 


3*FILL WRITE FROM BUFFER WITH HEADER 
012622 004037 032716 JSR RO, @A4F LHEAD ;SAVE HEADER DATA IN WRFROM 
002370 WRF ROM LOCATION WHERE SAVED 
000004 4 [NUMBER OF WORDS SAVED 
010000 oes sFIRST DATA WORD 


SECOND DATA WORD 
0 THIRD DATA WORD 
0 FOURTH DATA WORD 


:*FILL WRITE FROM BUFFER WITH DATA 
004037 032742 JSR RO, @4CLAREA CLEAR 256. WORDS, FROM WRFROM+10 
WRF ROM+ 10 STARTING FROM WRFROM+10 
0004 256. 3256. WORDS 
012652 0 sFILL WITH O 


c*FILL WRITE Ay BUFFER WITH NEXT SECTOR HEADER 
012654 032716 JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM+<260. *2> 
WRF ROM+<260. ens ;LOCATION WHERE SAVED 
& ;NUMBER OF WORDS SAVED 
10000 FIRST DATA WORD 
1 SECOND DATA WORD 
0 THIRD DATA WORD 
0 FOURTH DATA WORD 


s*FILL WRITE ay BUFFER WITH NEXT SECTOR DATA 
012674 032742 JSR RO,@A4CLAREA CLEAR 4 WORDS, FROM WRFROM+<264, *2> 
WRF ROM 264.405 STARTING FROM WRFROM+<264. *2> 


34 WORDS” 
1 sFILL WITH 1 
z*CLEAR READ wD BUFFER tie DATA OTHER THAN EXPECTED DATA 


032742 JSR RO, @ACLAREA : R 260. WORDS, FROM REINTO 
012712 003434 REINTO ‘STARTING FROM REINTO 


000000 
000000 
000000 


012672 
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CZRJJCO, RPO4/5/6 FCTNL 2 MACY11 30A(1052) 27-JUL=78 12:32 PAGE 63 SEQ 0062 CZR 
CZRJJC.P11 26-JUL~78 10:0) T12 SEARCH COMMAND CZ2R 


012714 000404 260. 3260. WORDS 
012716 000377 377 sFILL WITH 377 


7*THE WRITE ei AND DATA WILL BE LOADED 
012720 004037 035054 JSR RO, af ;SETUP TO RUN FOR DATA COMMAND 
000000 0 CYLINDER 0 
000 -BYTE 0 SSECTOR 0 
600 -BYTE 0 ; TRACK 0 
177364 -264.-4 ;WORD COUNT (DATA) = 264. + 
002370 WRF ROM ;BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
010000 FMT22 316 BITS PER WORD FORMAT 
012740 WRIFOR :GET READY TO DO A WRIFOR 


z*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 
012742 033240 JSR RO. @4#SAVER fap REGISTERS 
HWC IS THE FIRST REGISTER SAVED 
+ OTARTING ADDRES OF WHERE 
012752 18. :NUMBER OF REGISTERS 


012754 033152 PC ,a@#CHECKT ;CHECKS DVA,RDY,.MOL,DPR,DRY AND VV = 1 
012760 057176 ,CPHALT CANNOT CONTINUE TESTING IF NOT 
012764 000000 STOP TEST 

012766 013777 004506 16717? @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


012774 013746 002344 @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
000101 AGO! IE, (SP) ;GET READY TO SET GO AND 


tali all at ali ald all wit alt alt alt alt ALAA A a al al a CN a Lal Lal A A a 


167170 (SP) +,@RHCS1 :GO WITH 
@R1,RO SAVE RHCS1 DURING ABOVE OPERATION 
013012 @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


ot os REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 
013014 :WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
[WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 9080 MICRO SECONDS 
:RDY MUST SET BETWEEN 
@AWRIFOR,-(SP) ; SAVE 


001124 


001126 
004500 
010500 
001124 


001126 
004500 


032774 


JSR RO, @4F ILLRE 


AIE'!DVA!GO, (SP) 
(SP) ,a@ASGDDAT 
(SP)+, 

67$ 

RO, A#SBDDAT 

| tert 


#MOL ! DPR! VV,-(SP) 
(SP) , @#SGDDAT 
(SP)+,R5 

69$ 

R5 ,@#$BDDAT 
ag SRE CR 


COMMAND 
: INCLUDE IE!DVA:GO 
SAVE FOR PRINTOUT 
:DURING ABOVE OPERATION ONLY IE!DVA!GO 
tg IF GOOD 


;BAD DATA 
FAILING REGISTER RHCS1 
;DURING ABOVE OPERATION ON 


SAVE BITS SET DURING OPERATION IN RHDS1 


;SAVE FOR PRINTOUT 

;DURING ABOVE OPERATION ONLY MOL! DPR! VV 
;BRANCH IF GOOD 

;BAD DATA 

FAILING REGISTER RHDS1 

;DURING ABOVE OPERATION ONLY 


z*NOW CHANGE SAVE REGISTERS TO EXPECTED VALUES 


MOV 0 INTO SAVED RHWC 





—_ 
™ 
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CZRJJCO, RPO4/5/6 FCTNL cies MACY11 30A(1052) 27=JUL-78 12:32 PAGE 64 SEQ 0065 
CZRJJC.P11 26-JUL=78 10:07 T12 SEARCH COMMAND 


002172 RHWC SpATA” REGISTER TO CHANGE 


000000 0 
004037 032774 JSR RO, @4F ILLRE MOV _WRFROM+<268. “ INTO SAVED RHBA 
002174 RHBA ; SAVED REGISTER TO CHANGE 

WRF ROM+<268. *2> ATA 


003420 :DA 

004037 032774 JSR RO, @4F ILLRE MOV 2 INTO SAVED RHDST 
002204 RHDST SAVED REGISTER TO CHANGE 
000002 2 DATA 


*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
> *WITH “ho. aeton AFTER COMMAND 

004037 034070 COMREG ; COMPARE SAVED REGISTERS WITH 
004512 ; [GOOD DATA SAVED IN 'SAVERE' 
002254 wW TEST DATA STARTING FROM ‘RHWC' 
000022 . 318. REGISTERS TO BE COMPARED 
013154 ;RETURN TO 1$ ON ERROR 

013152 013160 RETURN TO 2$ ON NO ERROR 


013154 104027 : ERROR 27 ;WRITE HEADER AND DATA 
013156 000207 RTS PC ;CAUSED IMPROPER REGISTER 


> CHANGE 
: 600D | he GIVES WHAT SHOULD 


;RECEIVED DATA GIVES WHAT 
sWAS THERE AFTER COMMAND 


:*NOW A SEARCH COMMAND WILL BE GIVEN 
;*BUT BEFORE THAT ALL POSSIBLE REGISTERS 


ao 
™~ 
Zz 


;*WILL BE FILLED FOR THE READ HEADER AND DATA SECTOR 1 
;*AS THERE WILL NOT BE MUCH TIME BETWEEN THE 
:*COMPLETION OF THE SEARCH AND THE SECTOR 1 COMING. 


:*FILL FOR THE READ HEADER AND DATA COMMAND WHICH WILL NOT 
;*BE EXECUTED TILL AFTER THE SEARCH 

*THE SEARCH WILL ONLY LEAVE RHCS1 AND RHDST 

*CHANGED ALL THE REST WILL BE UNCHANGED 


013160 ; 

033072 JSR PC ,@ACLDISK 3SET R1-RHCS1, Re-RHCS2 

035054 JSR RO, ARUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
-BYTE 0 SECTOR 0 
-BYTE 0 ; TRACK 0 
-8. :WORD COUNT = 8 
RE INTO SBUS ADDRESS 

;DO NOT INHIBIT BUS ADDRESS INCREMENT 

ECI!FMT22 16 BITS PER WORD FORMAT 
SERCH :GET READY TO DO A SERCH 


et + REGISTERS FOR COMPARISON NOT AFTER THE 
*SEARCH COMMAND BUT AFTER THE READ HEADER AND DATA 
033240 RO, @ASAVER oy REGISTERS 
HWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
013216 18. [NUMBER OF REGISTERS 


td nit oft off oft oft odd oft oft off oth oft off oft ost oft ot alot oti oll wi alt a LAD all ol od LA al al a Cal Cal LA Lal Lal Lal LA Lal CA AA Ll CAN A LA Ad Cd CWA Ad CA 
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CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL-78 12:32 PAGE 65 CZR 
CZRJJC.P11 26-JUL-78 10:07 T12 SEARCH COMMAND CZR. 


>*NOW SAVE VALUES FOR RHCS1 AND RHDST WHICH 
;*WILL CHANGE AFTER THE SEARCH 


013220 013746 MOV @AREFOR,-(SP)  ;SAVE READ HEADER AND DATA 
BIS #1E!GO, (SP) ; INTERRUPT ENABLE AND GO 
0 MOV (SP) +, a4TMPO 7SAVE IN RO FOR RHCS1 
012737 MOV #1, Q4TMPS ;SAVE TRACK 0 SECTOR 1 FOR RHDST 


7*THE INTERRUPT VECTOR WILL BE SET TO GO TO 2$ 
;*AFTER THE SEARCH 


012777 013310 166716 #7$ ,ARPVEC SET INTERRUPT VECTOR TO 2$ 
033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ,CPHALT ZCANNOT CONTINUE TESTING IF NOT 
STOP TEST 
@ASERCH,-(SP)  :GET READY TO MOVE COMMAND 
013266 #GO!IE, (SP) [GET READY TO SET GO AND 
013272 166702 (SP) +,@RHCS1 3GO WITH 


ot IS NOT CRITICAL THIS ae 9 WAITS FOR SEARCH COMPLETION 
WAT ; WAIT T SET 


013276 


TER 

[WAIT FOR DRY BIT IN RHDS1 REGISTER 
ALLOW 9080 MICRO SECONDS 

001507 os. [DRY MUST SET BETWEEN 


013310 012737 000000 177776 7$: #0,PS SET PROSESSOR STATUS TO 
PRIORITY 0 IN CASE IT WAS 
; TAKEN Bag WAT ROUTINE 


: ORE 
013316 013777 004656 166660 @ATMPS,ARHDST ;SET DESIRED SECTOR/TRACK 
;REGISTER TO SECTOR 1, TRACK 0 
013324 013777 004506 166634 @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


013332 013777 004650 166640 @ATMPO,@RHCS1 = ;FILL RHCS1 WITH READ COMMAND 
dhe blag, WITH INTERRUPT ENABLE 


;*TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR 
: INDICATES WRONG SEARCH IN THE SEARCH COMMAND 
WAIT FOR RDY BIT TO SET 
SWAIT FOR RHCS1 REGISTER 
WAIT FOR RDY BIT IN RHCS1 REGISTER 
013346 . ;ALLOW 1490 MICRO SECONDS 
013350 0000 ; RDY MUST SET BETWEEN 


:*wRITE FROM BUFFER WILL BE we tiie WITH EXPECTED DATA 
013352 004037 032716 JSR RO, a4F LHEAD SAVE HEADER DATA IN WRFROM 

reey LOCATION WHERE SAVED 

10009 

0 


0 D 
032742 JSR RO, @ACLAREA CLEAR 4 WORDS, FROM WRFROM+<4*2> 
013376 WRF ROM+<4*2> STARTING FROM WRFROM+<4*2> 


(Lal LAA CA Lal Lal Cl CAA A A CAA A ad CA a CN CVV AA AWW AAW AAAI AAA AAA A 
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74 WORDS 
sFILL WITH 1 
: * CHANGE gf eo TO EXPECTED VALUES 
032774 JSR RO, @4F ILLRE sMOV 0 INTO SAVED RHWC 
RHWC arty REGISTER TO CHANGE 


0 ATA 

032774 JSR RO, @4F ILLRE =MOV RE INTO+<8.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
RE INTO+<8. *2> 


“DATA 
032774 JSR ¥ RO, a#F ILLRE :MOV 4272 INTO SAVED RHCS1 


; SAVED REGISTER TO CHANGE 


72 DATA 
032774 RO, @4F ILLRE s;MOV 2 INTO SAVED RHDST 
ST fet REGISTER TO CHANGE 


;*COMPARE REGISTER BEFORE READ HEADER AND DATA 
*WITH REGISTERS AFTER COMMAND 


034070 J RO, @#COMREG ; COMPARE SAVED REGISTERS WITH 
ERE ;GOOD DATA SAVED IN ‘SAVERE* 

TEST DATA STARTING FROM ‘RHWC' 
:18. REGISTERS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 
;READ HEADER AND DATA CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


:*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
;*THE READ WAS GOOD 


035120 RO, a@4#COMPAR ; COMPARE TWO BLOCKS OF MEMORY 
ROM :GOOD DATA STARTS FROM WRF ROM 
s TEST DATA STARTS FROM REINTO 
WORDS TO BE COMPARED 
RETURN TO 5$ ON ERROR 
013502 013510 ;RETURN TO 6$ ON NO ERROR 


013504 104053 : ERROR 53 READ HEADER AND DATA 
013506 000207 RTS PC eth A ri CAUSED 


013510 


tat alt alt aft af ad abt af Cad Cad tal ( al Cal Cal Lal Lal Cal Cal Cal CA CA LA CA CA A EA KA A AA A AIA WW AGW WWW WAG AWW AAW WWW 
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CZRJJC.P11 26-JUL-78 10:07 T12 SEARCH COMMAND 


013510 000004 TST13: SCOPE 
012706 001000 MO #STACK, SP RESET STACK 
000913 #13, QATSTNM SAVE TEST NUMBER 
033072 PC ,@#CLDISK SET R1-RHCS1, R2=-RHCS2 


z*GET THE HEADS TO CYLINDER 10 
033152 JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ,CPHALT [CANNOT CONTINUE TESTING IF NOT 


:STOP TEST 
004506 166416 @ARP4VEC ,ARPVEC ;SET —— VECTOR ADDRESS 
033042 RO, @#SEEKCY 7 SEEK F 
‘OYLINDER 10. 
002352 @ASEECOM,-(SP) :GET READY TO MOVE COMMAND 
000101 #GO!IE, (SP) ;GET READY TO SET GO AND 
166406 (SP) +,@RHCS1 [GO WITH 
i ;WAIT FOR DRY BIT TO SET 
z;WAIT FOR RHDS1 REGISTER 
WAIT FOR DRY BIT IN RHDS1 REGISTER 
TALLOW 70000 MICRO SECONDS 
DRY MUST SET BETWEEN 


*FILL REGISTERS FOR READ HEADER AND DATA TO BE DONE AFTER SEARCH 
033072 JSR PC ,@ACLDISK +7 R1-RHCS1, R2-RHCS2 
035054 - RO. ARUN ;SETUP TO ws FOR DATA COMMAND 


-BYTE 0 
-BYTE 0 


=. 
one 
ECI!FMT22 316 BITS PER WORD FORMAT 
SERCH :GET READY TO DO A SERCH 


ADDRESS 
“DO NOT INHIBIT BUS ADDRESS INCREMENT 


7*SAVE REGISTERS FOR COMPARISON AFTER SEARCH 
;*AND READ HEADER AND DATA 
004037 033240 RO, @4#SAVER SAVE REGISTERS 
002172 ;RHWC IS THE FIRST REGISTER SAVED 
004512 STARTING ADDRES OF WHERE 
000022 18 [NUMBER OF REGISTERS 


f ;*NOW GIVE THE SEARCH COMMAND 
004737 0353152 JSR PC ,@A#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
104401 057176 : /CPHALT > CANNOT CONTINUE TESTING IF NOT 


000000 :STOP TEST 
012777 014042 1663502 #3$,,ARPVEC ; INTERRUPT VECTOR SET TO 3$ 
004037 033022 RO, @4SRCH ; SEARCH FOR 
000000 0 CYLINDER 0 
;SECTOR 0 
000 ; TRACK _0 
013700 002334 @ASERCH RO EXPECTED CONTENTS OF RHCS1 
IMMEDIATELY AFTER GO 
052700 004301 ADVA!RDY!1E!GO, Ro ;EXPECTED BITS IN RHCS1 
012705 010500 #MOL'DPRIVV,R5S ;EXPECTED BITS IN RHDS1 
7 IMMEDIATELY AFTER GO 
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013710 013746 MO @ASERCH,-(SP)  ;GET READY TO MOVE COMMAND 
AGO!IE, (SP) GET READY TO SET GO AND 
(SP)+,@RHCS1 GO WITH 
aR1,RO :IS i GOOD 


BRANCH IF GOOD 
[BAD DATA FOR RHCS1 
:GOOD DATA 
00 R1,@4REGADR FAILING pr | en RHCS1 
000340 000036 #340, aMTRAPVEC+2 ; TRAP PRIORITY = 7 
013752 104021 21 ;DURING SEARCH COMMAND 
CONTENTS OF RHCS1 WAS 
:NOT AS EXPECTED 
013754 000414 2$ 71F LAST ERROR 21 OCCURRED 
; THEN DO NOT CHECK RHDS1 
SAS TOO MUCH TIME HAS 
PASSED 


013756 021305 : @R3,R5 31S RHDS1 GOOD 
2s “BRANCH IF GOOD 
001126 @R3, dASBDDAT ;BAD or FOR RHDS1 
001124 R5, ote yaa | GOOD DAT 
004500 R3,@4REGADR FAILING REGISTER RHDS1 
000340 000036 #360, SW TRAPVEC#2: ; TRAP PRIORITY = 7 
63 ;DURING SEARCH COMMAND 
CONTENTS OF RHDS1 WAS 
3 IN CORRECT 


013737 002350 004650 : @AREFOR,@A#TMPO ;SAVE READ HEADER AND DATA 


052737 000101 004650 MIE'GO,a#TMPO ; INCLUDE INTERRUPT ENABLE, GO 
012737 000001 004656 #1, QATMPS SAVE TRACK 0, SECTOR 1 


3*THIS IS ONLY A WAIT LOOP 
104413 WAT :WAIT FOR RDY BIT TO SET 
002222 ;WAIT FOR RHDS1 REGISTER 
000200 WAIT FOR RDY BIT IN RHDS1 REGISTER 
015530 . ALLOW 70000 MICRO SECONDS 
000043 35. ;RDY MUST SET BETWEEN 


012737 000200 000036 : #200 ,aATRAPVEC+2 ; TRAP PRIORITY = 4 
012737 000000 177776 #0,PS ;SET PROSESSOR STATUS TO 0 
014056 013777 004656 166120 aA TMPS ,ARHDST :SET DESIRED SECTOR/TRACK 
;REGISTER TO SECTOR 1, TRACK 0 


014064 013777 004506 166074 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 
014072 013711 004650 a4 TMPO,aR1 :FILL RHCS1 WITH READ COMMAND 
Hee af pp WITH INTERRUPT ENABLE 


;*TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR 
PN aaa WRONG SEARCH IN THE SEARCH COMMAND 
014076 104413 WAIT FOR RDY BIT TO SET 
002200 ‘WAIT FOR RHCS1 REGISTER 
000200 SWAIT FOR RDY BIT IN RHCS1 REGISTER 
000225 . ZALLOW 1490 MICRO SECONDS 
000002 . :RDY MUST SET BETWEEN 





an 


CZRJJCO, RPO4/S/6 FCTNL cree 
CZRJJC.P11 26-JUL=78 10:07 


014110 032716 


032742 
014140 
014142 032774 
032774 
032774 
032774 
032774 


014206 
014210 


014212 034070 


014226 


014230 
014232 


014234 


104031 
000207 


014234 


gy hl 035120 


014250 014256 


MACY11 30A(1052) 
713 SE 


JSR RO, @4F LHEAD 


ae 
aaa 
0 


0 
JSR RO, @A#CLAREA 
pega’ a at 


1 
JSR RO, a 
ae 

JSR RO, @4F ILLRE 
RHBA 
RE INTO+<8, *2> 

JSR RO, @A4F ILLRE 

RO, a4F ILLRE 


RO, a4F ILLRE 
a“ 


;CLEAR 4 WORDS, FROM WRFROM+<4*2> 
s STARTING FROM WRF ROM+<4*2> 


D 6 
27-JUL=78 12:32 PAGE 69 
ARCH COMMAND 


*WRITE FROM BUFFER WILL & FILLED WITH gt ph a 


AVE HEADER DATA IN WR 
:LOCATION yt SAVED 


74 WORDS 

FILL WITH 1 

3 * CHANGE eed J TO EXPECTED VALUES 
LRE sMOV 0 


SDATA 
:MOV 


INTO SAVED RHwWC 
; SAVED REGISTER TO CHANGE 


; SAVED an TO CHANGE 
;MOV 4272 INTO SAVED RHCS1 


“SAVED REGISTER TO CHANGE 
“DAT 


DATA 
sMOV 2 


> 
° 


INTO SAVED RHDST 
— REGISTER TO CHANGE 


:DA 
[MOV 0 INTO SAVED RHCC 
—_ REGISTER TO CHANGE 


> *COMPARE REGISTER BEFORE READ HEADER AND DATA 
OMMAND 


*WITH REGISTERS AFTER C 


JSR RO, A#COMREG 
VERE 


ERROR 31 
RTS PC 


;*THE READ WAS GOOD 
RO,@A#COMPAR 


;COMPARE SAVED REGISTERS WITH 
;GOOD DATA SAVED IN "SAVERE' 
TEST DATA STARTING FROM ‘RHWC" 
318. REGISTERS TO BE COMPARED 
RETURN TO 4$ ON ERROR 

RETURN TO 5$ ON NO ERROR 


;READ HEADER AND DATA CAUSED 
: IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRF ROM 


TEST DATA STARTS FROM REINTO 
78., WORDS TO BE — 
[RETURN TO 6$ ON ERROR 
;RETURN TO 7$ ON NO ERROR 





RE INTO+<8.*2> INTO SAVED RHBA 


E 6 
CZRJJCO, RPO4/5/6 FCTNL CIRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 70 
CZRJJC.P11 26-JUL-78 10:07 713 SEARCH COMMAND 


014252 104053 6$: ERROR 53 ;READ HEADER AND DATA 
014254 000207 RTS PC ;AFTER A SEARCH CAUSED 


;AN ERROR 
014256 7$: 
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CZRJJC.P11 


014256 
014260 
014264 
014272 


014276 


014316 


014320 


014330 


014332 


014352 


014354 


26-JUL-78 


002344 


004037 


10:07 


001000 
000014 
033072 


032716 


032742 


035054 


033240 


004504 


30A(1052) 
713 


Be Be Be Oe Be Be Be «& 
sepenepeeeeee eee e 


4g 
27-JUL-78 12:32 PAGE 71 SEQ 0070 
SEARCH COMMAND 


THE NEXT TEST REMOVES SECTOR 1 ON CYLINDER 0 
TRACKO AND PUTS SECTOR O THERE. 

HENCE THE PACK IS UNFORMATTED FROM 

THIS POINT ON TO THE TEST WHEN SECTOR 

1 IS REPLACED. IF TESTING IS STOPPED WITH 
AN ERROR IN THE SECTION OF THE PROGRAM BETWEEN 
THIS AND WHEN SECTOR 1 IS REPLACED THEN THE 
DISK BEING USED MAY HAVE BEEN UNFORMATTED 

IF THE LAST PASS OF THIS PROGRAM GIVES 

NO ERRORS IN THIS SECTION THEN THE DISK 

MAY NOT HAVE BEEN UNFORMATTED. HOWEVER IT 

IS RECOMMENDED THAT AFTER A PASS OF THIS 
PROGRAM THE DISK BE REFORMATTED. 


SCOPE 

MOV ASTACK, SP RESET STACK 

MOV #14 ,QATSTNM SAVE TEST NUMBER 

JSR PC,aACLDISK SET R1-RHCS1, R2-RHCS2 


:*FILL WRITE FROM BUFFER WITH HEADER 
JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM [LOCATION WHERE SAVED 
5 [NUMBER OF WORDS SAVED 
ane 


[FIFTH DATA WORD 
*FILL READ INTO BUFFER WITH ALL ONES 


JSR RO, @#CLAREA CLEAR 256. WORDS, FROM REINTO 
REINTO ;STARTING FROM REINTO 
256. ;256. WORDS 


=} ‘FILL WITH -1 


:*WRITE HEADER AND DATA IS LOADED 
JSR RO, @ARUN ; SETUP TO RUN FOR DATA COMMAND 
:CYLINDER 0. 
;SECTOR 1. 
; TRACK 0. 
sWORD COUNT (DATA) = 1 + 
;BUS ADDRESS 
:DO NOT INHIBIT BUS ADDRESS INCREMENT 
:16 BITS PER WORD FORMAT 
WRIFOR GET READY TO DO A WRIFOR 


7 *NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 
JSR RO, @#SAVER SAVE REGISTERS 





CZRJJCO, RPO4/5/6 FCTNL CTRLR2 
78 10:07 


CZRJJC.P11 


014376 
014400 
4406 


01 
014412 
014416 


014422 


26-JUL- 
002172 


013777 


013746 
052716 
012677 


000207 


033152 
057176 


004506 
002344 


000101 
165556 


032774 


032774 


032774 


034070 


MACY11 30A(1052) 
114 


165560 


6 
27-JUL=78 12: 33 PAGE 72 SEQ 0071 
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 
17. NUMBER OF REGISTERS 


JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
TYPE ,CPHALT CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 


MOV @ARPSVEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


MOV @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO!IE, (SP) 7GET READY TO SET GO AND 
MOV (SP)+,@RHCS1 GO WITH 


:*TIME IS NOT CRITICAL 
WAT zsWAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 25000 MICRO SECONDS 

RDY MUST SET BETWEEN 


3 *NOW CHANGE Faik REGISTERS TO EXPECTED VALUE 
JSR RO, @4F ILLRE sMOV 0 INTO SAVED RHwWC 
RHWC fave REGISTER TO CHANGE 


0 : A 

JSR RO, @4F ILLRE :MOV WRFROM+<5*2> INTO SAVED RHBA 
RHBA ; SAVED = TO CHANGE 

WRF ROM+<5*2> 


:DAT 
JSR RO, @4F ILLRE :MOV 2 INTO SAVED RHDST 
a Joey REGISTER TO CHANGE 


:*COMPARE ALL REGISTERS 


RO, d#COMREG COMPARE SAVED REGISTERS WITH 
:GOOD DATA SAVED IN ‘SAVERE* 
TEST DATA STARTING FROM ‘RHWC' 
317. REGISTERS TO BE COMPARED 
RETURN TO 1$ ON ge os 
;RETURN TO 2$ ON NO ERROR 
WRITING HEADER AND DATA CAUSED 


; IMPROPER REGISTER CHANGE 
[GOOD DATA GIVES WHAT 
SHOULD BE THERE 
[RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER WRITE 





C2 
C2 
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014522 


014524 


014544 


014546 


014556 


014560 
014564 
014570 


014572 


014600 
014604 
014610 


014614 
014616 
014620 
014622 
014624 


014626 


26-JUL-78 


004737 


000400 
177777 
004037 
000000 

001 

000 
177777 
003434 

000 
010000 
002346 


013777 


013746 
052716 
012677 


104413 
002200 
000200 
010110 
001502 


004037 
002222 
000002 
000001 
100000 
000001 
040000 
004037 


CTRLR2 
10:07 


033072 
032742 


035054 


033240 
033152 
057176 
004506 
002346 


000101 
165364 


033762 


033762 


MACY11 30A(1052) 
T14 


165366 


2$: 


H 6 
27=JUL-78 12:32 PAGE 73 SEQ 0072 
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


STRACK ete DATA WILL BE DONE ON CYLINDER=0, SECTOR=1, 
Ke 
:*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR PC ,a@ACLDISK SET R1-RHCS1, R2=-RHCS2 
JSR RO, @ACLAREA CLEAR 256. WORDS, FROM WRFROM 
WRF ROM STARTING FROM WRFROM 
256. 3256. WORDS 
-1 FILL WITH =1 
; *READ eg # Ng LOADED 
JSR RO, a4 ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
-BYTE 1. [SECTOR 1. 
-BYTE 0O TRACK 0 
-1 ;WORD COUNT = 1 
RE INTO ;BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT 22 316 BITS PER WORD FORMAT 
READAT :GET READY TO DO A READAT 
3 *SAVE gi yh FOR COMPARISON AFTER READ DATA 
JSR RO, @4#SAVER : SAVE REGISTERS 
RHWC RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 
18. NUMBER OF REGISTERS 
JSR PC ,a@A#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 


TYPE ~CPHALT ; CANNOT CONTINUE TESTING IF NOT 
HALT :STOP TEST 


MOV @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 
MOV @AREADAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS ACO!IE, (SP) ;GET READY TO SET GO AND 
MOV (SP)+,@RHCS1 GO WITH 
:*TIME IS NOT CRITICAL 
WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 WAIT FOR RHCS1 REGISTER 
RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
4168. ALLOW 41680 MICRO SECONDS 
834. zRDY MUST SET BETWEEN 
3 *NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 
2 :2 BIT/BITS TO BE pa 
1 NEW a a ATA IS 1 
ATA CHANGE ATA BIT 
1 : NEW VALUE A a Is 1 
ERR CHANGE ERR 


BIT 
JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 


C2! 
C2 


I 6 
CZRJJCO, RPO4/5/6 FCTNL CIAL Re MACY11 30A(1052) 27=JUL-78 12:32 PAGE 74 SEQ 0073 
C2RJJC.P11 26-JUL-78 10:0 T14 HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


014652 CHANGE RHCS1 REGISTER 
00000 2 2 BIT/BITS TO BE CHANGED 
jNEW VALUE OF SC IS 1 
;CHANGE SC BIT 
NEW VALUE OF TRE IS 1 
TRE ; CHANGE TRE BIT 
033762 RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
ER1 Z CHANGE RHER1 REGISTER 
31 BIT/BITS TO BE CHANGED 
NEW VALUE OF HCE IS 1 
CE ; CHANGE HCE BIT 
032774 RO, @4F ILLRE sMOV 2 INTO SAVED RHDST 
DST ey REGISTER TO CHANGE 


000002 2 
014712 053737 004644 004536 BIS @AATTENT, aWSAVERE+24- SET APPROPIATE ‘ATA* BITS 


;*COMPARE ALL REGISTERS 
014720 004037 034070 0, a4COMREG ;COMPARE SAVED REGISTERS WITH 
2 [GOOD DATA SAVED IN 'SAVERE' 

ZTEST DATA STARTING FROM 'RHWC' 
718. REGISTERS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 
;READING ON NON EXISTANT SECTOR 


;CAUSED AN ERROR 

:GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

sRECEIVED DATA GIVES WHAT 
zWAS THERE AFTER READ 


z*READ DATA WILL BE COMPARED 


014740 


014742 : 
004037 035120 RO, a#COMPAR COMPARE TWO BLOCKS OF MEMORY 
0 OM :GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 
3256., WORDS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 
;RETURN TO 6$ ON NO ERROR 
: : ;DATA_READ FROM NON 
000207 sEXISTANT SECTOR CAUSED AN ERROR 





J 6 
CZRJJCO, RPO4/S/6 FCTNL 2 MACY11 30A(1052) Lg 78 12:32 PAGE 75 SEQ 0074 
CZRJJC.P11 26-JUL-78 10: 715 HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


014764 000004 TST15: E 
012706 001000 STACK, SP RESET STACK 
004504 #15 ,aATSTNM 7 SAVE TEST NUMBER 
033972 PC ,@4CLDISK SET R1-RHCS1, R2-RHCS2 


:*FILL WRITE FROM BUFFER WITH HEADER AND DATA 
032716 JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM 

WRF ROM ;LOCATION WHERE SAVED 

6 [NUMBER OF WORDS SAVED 
10000 sFIRST DATA WORD 
0 :SECOND DATA WORD 
[THIRD DATA WORD 
sFOURTH DATA WORD 
FIFTH DATA WORD 
015026 SIXTH DATA WORD 


:*FILL READ INTO BUFFER WITH ALL ONES 
015030 004037 032742 JSR RO, @ACLAREA CLEAR 256. WORDS, FROM REINTO 
003434 REINTO STARTING FROM REINTO 
000400 256. 7256. WORDS 
177777 -1 FILL WITH =1 


;*WRITE HEADER AND DATA IS LOADED 
035054 JSR RO, @4RUN :SETUP TO RUN FOR DATA COMMAND 

0 CYLINDER 0 
:SECTOR 1 
TRACK 0 
[WORD COUNT (DATA) = 2 + 
BUS ADDRESS 
;DO NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
:GET READY TO DO A WRIFOR 


:*NOW SAVE REGISTERS FOR COMPARISON AFTER 
;*WRITE HEADER AND DATA 


033240 JSR RO, @#SAVER fae | REGISTERS 
WC HWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
015074 17. ;NUMBER OF REGISTERS 


015076 004737 033152 PC, one CHECKS DVA,RDY,MOL,.DPR,DRY AND VV = 1 
057176 ~CPHAL eit TESTING IF NOT 


013777 004506 165050 @ARP4VEC ,A@RPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002344 @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 A#GO'IE, (SP) :GET READY TO SET GO AND 
012677 165046 (SP)+,@RHCS1 :GO WITH 


*TIME IS NOT CRITICAL 

104413 WAT RDY BIT TO SET 
002200 RHCS1 REGISTER 

000200 ; RDY BIT IN RHCS1 REGISTER 
004704 ALLOW 25000 MICRO SECONDS 
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CZ2RJJC.P11 
015142 


015144 


015172 


015174 


015214 


26-JUL-78 


10:07 


032774 


032774 


032774 


034070 


MACY11 30A(1052) 
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K 6 
27-JUL=78 12:32 PAGE 76 
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


2500. zRDY MUST SET BETWEEN 


3 *NOW CHANGE tr REGISTERS TO EXPECTED VALUE 
JSR RO, @4F ILLRE :;MOV_0 INTO SAVED RHWC 
RHWC yy REGISTER TO CHANGE 


0 7D 
JSR RO, @4F ILLRE SMOV WRFROM+<6*2> INTO SAVED RHBA 
RHBA ; SAVED — TO CHANGE 
WRF ROM+<6*2> 
JSR 


;DAT 
RO, a4F ILLRE :Mov 2 INTO SAVED RHDST 
ges sett REGISTER TO CHANGE 


> *COMPARE ALL REGISTERS 
a4 COMREG s COMPARE SAVED REGISTERS WITH 
7GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC* 
iM? REGISTERS TO BE COMPARED 


; NO ERROR 
[WRITING HEADER AND DATA CAUSED 
; IMPROPER REGISTER CHANGE 

[GOOD DATA GIVES WHAT 

; SHOULD BE THERE 

;RECEIVED DATA GIVES WHAT 

;WAS THERE AFTER WRITE 


SEQ 0075 


alt aft of4 off odd oft oft ait adi oft oil ali ali oft efi ali Ali ali al 
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015216 
015216 


015226 


015230 


015250 


015252 


015262 


015264 
015270 
015274 


015276 


015304 
015310 
015314 


015320 
015322 
015324 
015326 
015330 


015332 


004737 
104401 
000000 


013777 


013746 
052716 
012677 


104413 
002200 
000200 
001614 
001502 


005737 
001421 


032742 


035054 


033240 
033152 
057176 
004506 
002342 


000101 
164660 


004640 


032774 


032774 


033762 


MACY11 =: Wen 
715 


164662 


6 
slosh to 78 12: 35 PAGE 77 
R COMPARE ERROR = RHER1 SIT #7 (HCE) 


7*NOW A WRITE DATA WILL BE DONE ON SAME CYLINDER, SECTOR 


; * TRACK 


7*FILL WRITE FROM BUFFER WITH DATA 
;CLEAR 70. WORDS, FROM WRFROM 


JSR 
WRF ROM 


70. 
177400 


RO,@4CLAREA 


io DATA COMMAND IS 


WRIDAT 


RO, @4#RUN 


ZSTARTING FROM WRFROM 
370. WORDS 
FILL WITH 177400 


LOADED 
;SETUP TO RUN FOR DATA COMMAND 


CYLINDER 0 
7SECTOR 1 
; TRACK 


CK 0 
[WORD COUNT = 70. 
[BUS ADDRESS 
;DO NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
[GET READY TO DO A WRIDAT 


sty REGISTERS FOR COMPARISON AFTER WRITE DATA 
JSR 


RO, @#SAVER 


PC ,a@A#CHECKT 
HALT 


’ 


@ARP4SVEC ,ARPVEC 


@AWRIDAT ,- (SP) 
#GO!IE, (SP) 
(SP)+,@RHCS1 


RO, @AF ILLRE 


RO, @A4F ILLRE 


RHBA 
WRF ROM+<8, *2> 


JSR 


RO, @4CHREG 


SAVE REGISTERS 
:RHWC IS THE FIRST yh SAVED 


TSTARTING ADDRES OF WHER 
NUMBER OF REGISTERS 


; CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 
CANNOT CONTINUE TESTING IF NOT 
STOP TEST 


SET RPO4 VECTOR ADDRESS 
:GET READY TO MOVE COMMAND 


:GET READY TO SET GO AND 
:GO WITH 


;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 9080 MICRO SECONDS 

zRDY MUST SET BETWEEN 


;*NOW CHANGE REGISTERS TO EXPECTED “eo 
@4RH70 ;RUNNING ON R 


H70 ? 
:IF NOT, SKIP NEXT RH7O CODE 


;MOV -62. INTO SAVED RHWC 
a REGISTER 70 CHANGE 


A 
>MOV WRFROM+<8.*2> INTO SAVED RHBA 
; SAVED gy gp TO CHANGE 


DAT 
:CHANGE BITS IN SAVED REGISTER 


1 


SEQ 0076 


é 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
é 
4 
4 
4 
P} 
4 
4 
r} 
r 
d 
d 
4 
d 
d 
d 
4 
d 
4 
d 
d 
d 
d 
d 
d 
d 
r 
r 
d 
d 
d 
d 
d 
d 
4 
4 
d 
4 
d 
4 
d 
4 
4 
d 
4 
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C2RIJC.P11 26-JUL-78 10:0 T15 HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


002176 RHCS2 CHANGE RHCS2 REGISTER 
000002 2 2 BIT/BITS TO BE CHANGED 
NEW VALUE OF OR IS 1 
; CHANGE OR BIT 
iNEW VALUE OF IR IS 0 
; CHANGE _IR BIT 
SKIP NEXT RH11 CODE 


032774 RO, @4F ILLRE :MOV -4. INTO SAVED RHWC 
RHWC : SAVED REGISTER TO CHANGE 


-4, 

032774 JSR —- RO, @#F ILLRE :MOV_WRFROM+<66.*2> INTO SAVED RHBA 
RHBA SAVED REGISTER TO CHANGE 
WRF ROM+<66. *2> 


sDATA 
033762 RO, @4CHREG ; CHANGE BITS IN SAVED REGISTER 
2 ;CHANGE RHCS2 REGISTER 
31 BIT/BITS TO BE CHANGED 
sNEW VALUE OF OR IS 1 
; CHANGE OR BIT 


033762 RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 
:2 BIT/BITS TO BE C 
NEW VALUE OF SC IS 1 
; CHANGE SC BIT 
NEW VALUE OF TRE IS 1 
CHANGE TRE BIT 
032774 JS RO, @A4F ILLRE sMOV 2 INTO SAVED RHDST 
re REGISTER TO CHANGE 


2 
004644 004536 @4ATTENT, aNSAVERE +24. SET APPROPIATE ‘ATA’ BITS 
033762 RO, @#CHREG SCHANGE BITS IN SAVED REGISTER 
CHANGE RHER1 REGISTER 
31 BIT/BITS TO BE CHANGED 
SNEW VALUE OF HCE IS 1 
SCHANGE HCE BIT 
033762 JS RO,@A#CHREG ; CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
3:2 BIT/BITS TO BE CHANGED 
NEW ss a ATA IS 1 
> CHANGE A A BIT 
NEW VALUE OF ERR IS 1 
SCHANGE ERR BIT 


nrRRRRRR RR RR RRR RRR RD RO RO RRR Re Oe ee DD DD 


034070 JSR 0, a4COMREG s COMPARE SAVED REGISTERS WITH 
ER [GOOD DATA SAVED IN ‘SAVERE" 
oo DATA STARTING FROM ‘RHWC* 
318. REGISTERS TO BE COMPARED 
;RETUR 3$ ON ERROR 


ERROR 
; ‘WRITE DATA ON NON EXISTANT SECTOR 
015550 000207 RTS ;CAUSED IMPROPER REGISTER CHANGE 
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CZRJJC.P11 26-JUL-78 10:07 T15 HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


sATTEMPTED WRITE WAS ON 

18 ae A O,SECTOR 1, TRACK 0 

[GOOD DATA GIVES WHAT SHOULD BE THERE 
SRECEIVED DATA GIVES.WHAT WAS THERE 
;AFTER COMMAND 


;*READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER 0 
015552 ;*WILL BE ATTEMPTED 


015552 033072 JSR PC, a#CLDISK ZSET R1-RHCS1, R2-RHCS2 


z*FILL WRITE FROM BUFFER WITH EXPECTED DATA 
015556 032716 JSR RO, @4#F LHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM SLOCATION WHERE SAVED 


6 
10000 
0 


:NUMBER OF WORDS SAVED 


; 
032742 JSR RO,@4#CLAREA “CLEAR 198. WORDS, FROM WRFROM+<6*2> 
WRF ROM+<6*2> STARTING FROM WRFROM+<6*2> 
198. 3198. WORDS 
- sFILL WITH 0 
032742 - JSR RO,@#CLAREA 7CLEAR 50. WORDS, FROM WRFROM+<204. *2> 
WRF ROM+<204, *2> STARTING FROM WRFROM+<204,. *2> 
000062 50. 350. WORDS 
015624 177777 -1 FILL WITH -1 
:*FILL READ INTO BUFFER WITH ALL ONES 
015626 004037 032742 JSR RO, @4CLAREA CLEAR 256. WORDS, FROM REINTO 
003434 RE INTO ZSTARTING FROM REINTO 
000400 256. 2256. WORDS 
177777 -1 FILL WITH -1 
*FILL REGISTERS WITH READ HEADER AND DATA COMMAND 
035054 JSR RO,@4#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
TSECTOR 1 
; TRACK 0 
[WORD COUNT (DATA) = 200. + 
BUS ADDRESS 
0 :DO NOT eielt BUS gem y: INCREMENT 
ECI!FMT22 16 BITS PER WORD FORMAT 
REFOR ;GET READY TO DO A REFOR 


3 *SAVE yt B FOR COMPARISON AFTER READ 
:*HEADER AND DATA 
033240 JSR RO, @4#SAVER SAVE REGISTERS 
C SRHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
015672 18. NUMBER OF REGISTERS 


015674 033152 JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 
015700 057176 TYPE ,CPHALT ; CANNOT CONTINUE TESTING IF NOT 





SEQ 0078 


On 
NSN 
DD 


RARAKRARADRHRARAHRAKRARHRHADHRHDHHLARARHLHLEH HH LLL HLH HLL LLL LLL LLL LLL LLS 


B 7 
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015704 000000 HALT STOP TEST 
015706 013777 004506 164252 MOV @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


015714 013746 MOV @AREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
015720 052716 BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
015724 012677 MOV (SP)+,@RHCS1 :GO WITH 


7*TIME IS NOT CRITICAL 
104413 AT ;WAIT FOR RDY BIT TO SET 
002200 WAIT FOR RHCS1 REGISTER 
000200 WAIT FOR RDY BIT IN RHCS1 REGISTER 
001614 ALLOW 9080 MICRO SECONDS 
015740 001507 39. ;RDY MUST SET BETWEEN 


z*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
015742 032774 JSR RO, @4F ILLRE sMOV 0 INTO SAVED RHWC 
RHWC SAVED REGISTER TO CHANGE 


0 ZDATA 

032774 JSR RO, @A4F ILLRE [MOV RE INTO+<204.*2> INTO SAVED RHBA 
RHBA ; SAVED gett TO CHANGE 
RE INTO+<204. *2> ;DATA 


033762 JSR RO, @A#CHREG :CHANGE BITS IN SAVED REGISTER 
RHER1 CHANGE RHER1 REGISTER 
1 31 BIT/BITS TO BE er pe 
1 NEW VALUE OF HCE IS 1 
HCE ;CHANGE HCE BIT 
033762 JSR RO, @#CHREG [CHANGE BITS IN SAVED REGISTER 


RHDS1 ; CHANGE RHDS1 REGISTER 

2 :2 BIT/BITS TO BE CHANGED 
1 NEW ae B OF ATA IS 1 
ATA ;CHANGE ATA BIT 

1 NEW VALUE -t ERR IS 1 
ERR ; CHANGE ERR BIT 

032774 JSR RO, @AF ILLRE ;MOV 2 INTO SAVED RHDST 

RHDST — REGISTER TO CHANGE 


2 :DA 
033762 JSR RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
RHCS1 [CHANGE RHCS1 REGISTER 
1 :1 BIT/BITS TO BE CHANGED 
1 a VALUE OF SC!TRE IS 1 
SC! TRE HANGE SC!TRE BIT 
004644 004536 BIS @AATTENT, awSAVERE+24 SET APPROPIATE ‘ATA* BITS 


:*COMPARE REGISTERS BEFORE READ HEADER AND DATA 
"* 
034070 JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
ERE [GOOD DATA SAVED IN 'SAVERE' 

:TEST DATA STARTING FROM 'RHWC' 
718. REGISTERS TO BE COMPARED 

016066 RETURN TO 5$ ON ERROR 

016072 [RETURN TO 6$ ON NO ERROR 


104031 : ERROR 31 ;READ HEADER AND DATA WITH 
016070 000207 RTS PC FORCED HEADER COMPARE ERROR 
CAUSED ERROR 





amo 
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CZRJJC.P11 26-JUL-78 10:0 T15 HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) Ci 


ee TH ie GIVES WHAT SHOULD 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER READ 


;*NOW COMPARE READ DATA 
;*THE COMMAND READ ONLY 204 WORDS, 4 HEADER WORDS 
7*AND 200 DATA WORDS 


004037 035120 JSR RO,@4#COMPAR ; COMPARE TWO BLOCKS OF MEMORY 
002370 WRF ROM ;GOOD DATA STARTS FROM WRFROM 
REINTO s TEST DATA STARTS FROM REINTO 
256. ;256., WORDS TO BE COMPARED 
:RETURN TO 7$ ON ERROR 
8$ [RETURN TO 8$ ON NO ERROR 
ERROR 34 [DATA READ FROM A FORCED 
RTS PC sHEADER COMPARE ERROR IS 
; INCORRECT 
;GOOD DATA GIVES WHAT 
;THE READ HEADER AND DATA 
; SHOULD HAVE READ 
;BAD DATA GIVES WHAT 
;WAS IN BUFFER AFTER 
READ COMMAND 
016114 








CZRJJCO, RPO4/5/6 FCTNL CTRLR2 


CZRJJC.P11 26-JUL-78 


016172 
016174 


016212 
016216 
016220 
016221 


016222 


016232 


016234 
016240 
016244 
016246 


016254 


016272 
016274 


016302 


000004 
012706 
012737 
004737 


004737 
104401 
000000 
013777 
013746 


011305 


104413 
002222 


000200 
012740 
012737 


013777 
013746 


001614 


10:07 


001000 
000916 
033072 


033152 
057176 


164010 


033072 


033022 


033240 


033152 
057176 


004506 
002334 


MACY11 30A(1052) 
715 


004504 


164012 


163712 


TST16: 


D 7 
27-JUL=78 12:32 PAGE 82 
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


SCOPE 


MOV 
MOV 
JSR 


#STACK, SP 
#16,a4TSTNM 
PC ,@#CLDISK 


PC ,@ACHECKT 

,CPHALT 

@ARP4VEC ,ARPVEC 

@ARECALI ,~(SP) 

#GO!IE, (SP) 

(SP) +,@RHCS1 
1,R0 


aR3.R5 


PC,aA#CLDISK 


RO,@4SRCH 


SEQ 0081 


RESET STACK 
;SAVE TEST NUMBER 
SET R1-RHCS1, R2=-RHCS2 


7*GET HEADS TO CYLINDER 0 
JSR CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
CANNOT CONTINUE TESTING IF NOT 

STOP TEST 


SET RPO4 VECTOR ADDRESS 


;GET READY TO MOVE COMMAND 

;GET READY TO SET GO AND 

:GO WITH 

;SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


zWAIT FOR DRY BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

;WAIT FOR DRY BIT IN RHDS1 REGISTER 
ALLOW 56000 MICRO SECONDS 

DRY MUST SET BETWEEN 


SET R1-RHCS1, R2-RHCS2 
7*FILL REGISTERS FOR SEARCH 
JSR 


SEARCH FOR 


CYLINDER 0 
:SECTOR 1 
; TRACK 0 


3 *SAVE REGISTERS FOR COMPARISON AFTER SEARCH 
SR SAVER 


RO,a# 


PC ,@#CHECKT 
CPHALT 


@ARPSVEC , @RPVEC 


@ASERCH,~(SP) 
A#GO!IE, (SP) 
(SP)+,@RHCS1 


e 


@R3,R5 


SAVE REGISTERS 

;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 

NUMBER OF REGISTERS 


CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
CANNOT CONTINUE TESTING IF NOT 
:STOP TEST 


SET RPO4 VECTOR ADDRESS 


:GET READY TO MOVE COMMAND 

:GET READY TO SET GO AND 

:GO WITH 

;SAVE RHCS1 DURING ABOVE OPERATION 
:SAVE RHDS1 DURING ABOVE OPERATION 


WAIT FOR DRY BIT TO SET 

WAIT FOR RHDS1 REGISTER 

WAIT FOR DRY BIT IN RHDS1 REGISTER 
ZALLOW 9080 MICRO SECONDS 





c 
Ci 
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016444 


26-JUL-78 1 


016446 
104047 
000207 


001126 
004500 
010500 
001124 


001126 
004500 


033762 


033762 


004644 


034070 


MACY11 30A(1052) 
716 


004536 


: ¢ 
27-JUL-78 12:32 PAGE 83 SEQ 0082 
HEADER COMPARE ERROR = RHER1 HCE 


DRY MUST SET BETWEEN 
@ASERCH,-(SP) ;SAVE COMMAND 

#1E!GO!DVA!RDY, (SP) ; INCLUDE IE!GO!DVA!RDY 

(SP) ,@#$GDDAT  ;SAVE FOR PRINTOUT 

(SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA!RDY 

67$ BRANCH IF GOOD 

RO, @#$BDDAT BAD DATA 

R1,@4REGADR FAILING REGISTER RHCS1 

21 ;DURING ABOVE OPERATION ONLY 

AMOL ! DPR! VV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
(SP),@ASGDDAT ;SAVE FOR PRINTOUT 

(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL !DPR! VV 

69$ ;BRANCH IF GOOD 

R5 ,@#$BDDAT ;BAD DATA 

R3,Q4REGADR FAILING REGISTER RHDS1 

63 ;DURING ABOVE OPERATION ONLY 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, @4CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCSI CHANGE RHCS1 REGISTER 
1 31 BIT/BITS TO BE CHANGED 
1 NEW VALUE OF SC IS 1 
SC ; CHANGE SC BIT 
JSR RO, Q#CHREG CHANGE BITS IN SAVED REGISTER 
RHDS1 ZCHANGE RHDS1 REGISTER 
1 31 BIT/BITS TO BE CHANGED 
1 NEW VALUE OF ATA IS 1 
ATA ; CHANGE ATA BIT 
BIS @AATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA’ BITS 


; * COMPARE Me etomce BEFORE SEARCH WITH AFTER SEARCH 
JSR OMREG s COMPARE SAVED REGISTERS WITH 
[GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
[RETURN TO 1$ ON ERROR 
[RETURN TO 2$ ON NO ERROR 


;SEARCH TO A NON-EXISTANT 
SECTOR CAUSED IMPROPER 
REGISTER CHANGE 

— GIVES WHAT SHOULD 


;BE 

;RECEIVED DATA GIVES 
WHAT WAS THERE AFTER 
; SEARCH 





Ci 
Ci 
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CZRJJC.P11 


016516 


016520 


016550 


016552 


016572 


016574 


000004 
012706 
012737 
004737 


004037 
002370 
000004 


004037 


004737 
104401 


RLR2 
:07 


033072 


032716 


032742 


032716 


032742 


035054 


033240 


033152 
057176 


MACY11 30A(1052) 
T17 


004504 


TST17: 


ga 3 
27-JUL=78 12:32 PAGE 84 SEQ 0083 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


SCOPE 

MOV ASTACK SP RESET STACK 

MOV #17, a4TSTNM SAVE TEST NUMBER 

JSR PC ,@#CLDISK 3SET R1-RHCS1, R2-RHCS2 


:*FILL WRITE FROM BUFFER WITH HEADER 
JSR RO, @4F LHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM [LOCATION WHERE SAVED 


4 
assy 


[NUMBER OF on SAVED 


0 : 
0 FOURTH DATA WORD 


*FILL WRITE Ay BUFFER WITH DATA 
JSR RO, @ACLAREA CLEAR 256. WORDS, FROM WRFROM+10 
WRF ROM+10 STARTING FROM WRFROM+10 
256. 3256. WORDS 
FILL WITH 0 


;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
7*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 

3 *CHANGE WRITE FROM BUFFER 


JSR RO, @4F LHEAD ;SAVE HEADER DATA IN REINTO 
REINTO LOCATION WHERE SAVED 

4 NUMBER OF WORDS SAVED 

ante 


0 
0 D 

JSR RO, @ACLAREA “CLEAR 256. WORDS, FROM REINTO+10 
aad STARTING FROM REINTO+10 


5256. WORDS 
sFILL WITH 0 


z*NOW THE WRITE ee AND DATA COMMAND WILL BE FILLED 

JSR RO, @4#RUN : SETUP TO RUN FOR DATA COMMAND 
sCYLINDER 0 
= SECTOR 1 
; TRACK 0 
:WORD COUNT (DATA) = 256. + 
;BUS ADDRESS 
:DO NOT INHIBIT BUS ADDRESS INCREMENT 
216 BITS PER WORD FORMAT 

WRIFOR GET READY TO DO A WRIFOR 


i *NOW SAVE — FOR COMPARISON AFTER WRITE HEADER AND DATA 
JSR RO,@4SA SAVE REGISTERS 
RHWC SRHWC IS THE FIRST REGISTER SAVED 
SAVERE [STARTING ADDRES OF WHERE 

7. NUMBER OF REGISTERS 


JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPP,DRY AND VV = 1 
TYPE ~CPHALT CANNOT CONTINUE TESTING IF NOT 





C2 
C2 


CZRJJCO, RPOG/5/6 FCTNL Cin ae 


C2RJJC.P11 


017006 
017010 


26-JUL-78 


000000 
013777 
013746 


017012 


104027 
000207 


10:07 


004506 


163336 


002344 
004101 
001124 


001126 
004500 
010500 
001124 


001126 
004500 


032774 


032774 


032774 


034070 


MACY11 30A(1052) 
117 


163340 


G 7 
27-JUL=78 12:32 PAGE 85 SEQ 0084 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


STOP TEST 
@ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


@AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
AGO! IE, (SP) ;GET READY TO SET GO AND 
(SP)+,@RHCS1 :GO WITH 
@R1,RO SAVE RHCS1 DURING ABOVE OPERATION 
MOV @R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
os REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 
:WAIT FOR RDY BIT TO SET 
[WAIT FOR RHCS1 REGISTER 
[WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9080 MICRO SECONDS 
;RDY MUST SET BETWEEN 
@AWRIFOR,-(SP) ;SAVE COMMAND 
#IE!GO'DVA, (SP) :INCLUDE IE!GO!DVA 
(SP) ,a#$GDDAT SAVE FOR PRINTOUT 
[DURING ABOVE OPERATION ONLY IE!GO!DVA 
ag ol ty GOOD 
FAILING. REGISTER RHCS1 
[DURING ABOVE OPERATION ONLY 
#MOL ! DPR! VV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
(SP). a@#$GDDAT ; SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPR! VV 
66$ BRANCH IF GOOD 
R5 ,@#$BDDAT ;BAD DATA 
R3,@#REGADR FAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


3*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO, @4F ILLRE :MOV 0 INTO SAVED RHWC 
tae Soret REGISTER TO CHANGE 


JSR RO, a4F ILLRE [MOV WRFROM+<260.*2> INTO SAVED RHBA 
RHBA “SAVED REGISTER TO CHANGE 
WRF ROM+<260. *2> 


DATA 
JSR RO, a4F ILLRE ;MOV 2 INTO SAVED RHDST 
— —_— REGISTER TO CHANGE 


*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


JSR RO, @#COMREG COMPARE SAVED REGISTERS WITH 
ERE ;GOOD DATA SAVED IN ‘SAVERE* 
TEST DATA STARTING FROM ‘RHWC* 
217. REGISTERS TO BE COMPARED 
:ReTURN TO 1$ ON ERROR 
RETURN TO 2$ ON NO ERROR 


ERROR 27 WRITE HEADER AND DATA 
RTS PC ;CAUSED IMPROPER REGISTER 


; CHANGE 
;GOOD DATA GIVES WHAT SHOULD 





CZ 
CZ 


CZRJJCO, RPO4/5/6 FCTNL He 


CZRIJC.P11 


017012 


017026 


017030 
017032 


017050 


017052 


017072 


017074 


017116 
017120 
017126 


017144 
017146 


26-JUL-78 1 


004037 
003434 
002370 
000404 
017030 
017034 
104030 


013777 
013746 


011305 
104413 


035120 


033072 
032742 


035054 


033240 


033152 
057176 


004506 
002350 


000101 
163036 


H 
27-JUL-78 12:32 SEQ 0085 


PAGE 86 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 
;BE THERE 
sRECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMAND 


;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
;*NOTHER GOT CHANGED 


JSR : RO, @#COMPAR 


MACY11 30A(1052) 
117 


COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM REINTO 
TEST DATA STARTS FROM WRFROM 
7260., WORDS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
RETURN TO 4$ ON NO ERROR 


ERROR 30 ;WRITE HEADER AND DATA 
RTS PC ; CHANGED WRITE FROM BUFFER 


;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
;*READ INTO BUFFER IS FILLED WITH ONES 


PC, ,aA#CLDISK SET R1-RHCS1, R2-RHCS2 
RO,@4CLAREA :CLEAR 260. WORDS, FROM REINTO 


; STARTING FROM REINTO 
3260. WORDS 
SFILL WITH -1 


;*NOW FILL COMMAND 
JSR RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 

SECTOR 1 

; TRACK 0 

[WORD COUNT (DATA) = 256. + 
BUS ADDRESS 

;DO0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
REFOR ;GET READY TO DO A REFOR 


3 *NOW SAVE oS hat e, FOR COMPARISON AFTER READ HEADER AND DATA 
RO, @ASA SAVE REGISTERS 
SRHWC IS THE FIRST REGISTER SAVED 
ZSTARTING ADDRES OF WHERE 
NUMBER OF REGISTERS 


CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
CANNOT CONTINUE TESTING IF NOT 
STOP TEST 


PC ,a@ACHECKT 
~CPHALT 


163040 @ARP4SVEC ,ARPVEC 
@AREFOR ,~ (SP) 
A#GO!IE, (SP) 
(SP)+,@RHCS1 
aR1,RO 

@R3,R5 


SET RPO4 VECTOR ADDRESS 


:GET READY TO MOVE COMMAND 

;GET READY TO SET GO AND 

:GO WITH 

SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


:WAIT FOR RDY BIT TO SET 
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017150 WAIT FOR RHCS1 REGISTER 
000200 ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9080 MICRO SECONDS 
. ;RDY MUST SET BETWEEN 
002350 @AREFOR,-(SP)  ;SAVE COMMAND 
004101 MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
001124 (SP) ,@A#SGDDAT  ;SAVE FOR PRINTOUT 
(SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
7$ ; CH IF GOOD 


6 ; 
001126 RO, a#$BDDAT BAD DATA 
004500 MO R1,@4REGADR FAILING REGISTER RHCS1 
21 :DURING ABOVE OPERATION ON 
010500 : #MOL ! DPR! VV,=-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP),@#$GDDAT ; SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPR! VV 
69$ é CH IF GOOD 
001126 R5,@#$BDDAT ;BAD DATA 
004500 R3,@4#REGADR FAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 


3 *CHEANGE 4 REGISTERS TO EXPECTED VALUES 
032774 JSR RO, @4F ILLRE ;MOV 0 INTO SAVED RHWC 
RHWC ; SAVED REGISTER TO CHANGE 


0 ZDATA 

032774 JSR RO, @4F ILLRE *MOV RE INTO+<260.*2> INTO SAVED RHBA 
RHBA ; SAVED REGISTER TO CHANGE 
RE INTO+<260. *2> 


DATA 
032774 JSR RO, a@4F ILLRE s;MOV 2 INTO SAVED RHDST 
- Nes —— REGISTER TO CHANGE 


oOo 
™N 
nn 


;*COMPARE REGISTER BEFORE READ HEADER AND DATA 
;*WITH REGISTERS AFTER COMMAND 


034070 JSR RO,@4COMREG COMPARE SAVED REGISTERS WITH 
RE ;GOOD DATA SAVED IN "SAVERE' 
TEST DATA STARTING FROM ‘RHWC" 
[18. REGISTERS oe - COMPARED 
[RETURN TO 5$ ON ERROR 
017312 RETURN TO 6$ ON NO ERROR 


104031 e.. ERROR 31 ;READ HEADER AND DATA CAUSED 
017310 000207 RTS PC ; IMPROPER REGISTER CHANGE 
+ & ay GIVES WHAT SHOULD 


7B 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


:*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
;*THE READ WAS GOOD 


004037 035120 RO, @#COMPAR :COMPARE TWO BLOCKS OF MEMORY 
0 R :GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 

000404 260. 3260., WORDS TO BE COMPARED 


eee eee enn Re RHO LK LHL HD LLL LHL LL hh hhh Hh hh hh Hh > Hh Ph h PP HS 
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017324 017330 7$ ;RETURN TO 7$ ON ERROR 
017326 017334 10$ RETURN TO 10$ ON NO ERROR 


017330 104032 : ERROR 32 ;WRITE HEADER AND DATA 

017332 000207 RTS PC ;FOLLOWED BY A READ HEADER 
AND DATA GAVE A READ ERROR 
ERROR MAY BE IN READ OR WRITE 

017334 


d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
4 
4 
d 
d 
4 
4 
d 
d 
d 
4 
d 
d 
4 
d 
d 
d 
4 
d 
d 
d 
4 
d 
d 
d 
d 
4 
d 
d 
d 
d 
4 
4 
d 
d 
d 
d 
d 
d 
4 
d 
d 
4 
d 
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TST20: 
001000 MO ASTACK, SP RESET STACK 
000020 004504 #20,a4TSTNM SAVE TEST NUMBER 
017350 004737 033072 PC ,@#CLDISK 3SET R1-RHCS1, R2-RHCS2 


>*CHECK THE DRIVE TYPE AND THEN FILL THE 
7 *WRITE FROM BUFFER WITH APPROPRIATE HEADER 


017354 004636 TST @ARPOG =; TEST FOR RPO6 DRIVE 
BEQ 5$ ; TREAT UNIT AS AN RPO4 
[TREAT AS AN RPO6 


032716 JSR RO, @4F LHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM ZLOCATION WHERE SAVED 
6 [NUMBER OF WORDS SAVED 
praes D 


D 
6$ CONTINUE WITH SET UP 


032716 J RO, @4FLHEAD ;SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
NUMBER OF WORDS SAVED 


;FOURTH DATA WORD 


017424 3 CONT INUE 

:*FILL WRITE FROM BUFFER WITH DATA 
017424 004037 032742 JSR RO, @ACLAREA CLEAR 256. WORDS, FROM WRFROM+10 
017430 002400 WRFROM*10 OS ah es. FROM WRFROM+10 
017432 000400 256. 3256. WORDS 
017434 177777 0-1 FILL WITH 0-1 


;*THE DRIVE TYPE IS CHECKED AND THE APPROPRIATE 
;*WRITE HEADER AND DATA COMMAND IS LOADED 


017436 005737 004636 TST @ARPO6 =; TEST FOR RPO6 DRIVE 
017442 001412 EQ 3$ ; TREAT UNIT AS RPO4 
; TREAT UNIT AS RPO6 


017444 004037 035054 RO, @ARUN ;SETUP TO RUN FOR DATA COMMAND 
001457 815. CYLINDER 815. 
000 ;SECTOR 0 


000 . ; TRACK 0 
177374 R WORD COUNT (DATA) = 256. + 
002370 ;BUS ADDRESS 
000000 0 DO NOT INHIBIT BUS ADDRESS INCREMENT 
017462 010000 316 BITS PER WORD FORMAT 


4 
4 
4 
4 
4 
4 
4 
é 
é 
é 
4 
4 
r 
r 
r 
d 
d 
4 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
4 
4 
d 
4 
d 
4 
d 
d 
4 
4 
4 
4 
d 
4 
4 
4 
4 
4 
4 
4 
4 
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002344 : WRIFOR :GET READY TO DO A WRIFOR 
000411 BR 4$ CONTINUE WITH TESTING 


004037 035054 , RO, @#RUN :SETUP TO RUN FOR DATA COMMAND 
000633 411. “CYLINDER 411. 
000 =SECTOR 0 


000 . ; TRACK 0 
177374 ° [WORD COUNT (DATA) = 256. + 
002370 [BUS ADDRESS 
000000 0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
010000 316 BITS PER WORD FORMAT 
002344 :GET READY TO DO A WRIFOR 
017512 : > CONT INUE 


:*NOW SAVE REGISTERS FOR COMPARISON AFTER 
[*WRITE HEADER AND DATA 


017512 004037 033240 RO, @#SAVER SAVE REGISTERS 
002172 C SRHWC IS THE FIRST REGISTER SAVED 
004512 STARTING ADDRES OF WHERE 

017522 000022 18. [NUMBER OF REGISTERS 


017524 004737 033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
017530 104401 057176 ~CPHALT CANNOT CONTINUE TESTING IF NOT 
017534 000000 :STOP TEST 


017536 013777 004506 162422 @ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


017544 013746 002344 @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
017550 052716 000101 #GO!IE, (SP) ;GET READY TO SET GO AND 
017554 012677 162420 (SP)+,@RHCS1 :GO WITH 


017560 WAT ;WAIT FOR IAE BIT TO SET 
WAIT FOR RHER1 REGISTER 

WAIT FOR IAE BIT IN RHER1 REGISTER 
>. ALLOW 90 MICRO SECONDS 

017570 . 7; 1AE MUST SET BETWEEN 


RARARARARARARRHALHHHEHHEHHLHLHHHL LHL LOLLY 


3 * CHANGE THE SAVED REGISTERS TO EXPECTED VALUES 


:*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED, 
7 *RHWC,RHBA,RHCS1 & RHCS2 CANNOT BE PREDETERMINED 
>*THEY WILL VARY DEPENDING ON GATE DELAYS FOR DIFFERENT UNITS 


017572 017737 162374 004512 @RHWC , AASAVERE Oe en i. ae 
017600 017737 162370 004514 @RHBA , AASAVERE+2:RHBA IS UNPREDICTABLE 
zAS EXPLAINED ABOVE 
017606 017737 162364 004516 @RHCS2,a#SAVERE+4;RHCS2 IS UNPREDICTABLE 
;AS EXPLAINED ABOVE 
017614 017737 162360 004520 @RHCS1, aw SAVERE +6; RHCS1 IS UNPREDICTABLE 
AS EXPLAINED ABOVE 
017622 004037 033762 RO, @A#CHREG SCHANGE BITS IN SAVED REGISTER 
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017626 RHDS1 CHANGE RHDS1 REGISTER 
000002 2 32 BIT/BITS TO BE CHANGED 
sNEW ary OF ATA IS 1 


1 
ATA 
1 


ERR 8 
033762 JSR RO, @4CHREG * CHANGE BITS IN SAVED REGISTER 

RHER1 ZCHANGE RHER1 REGISTER 

1 :1 BIT/BITS TO BE CHANGED 

1 NEW VALUE OF IAE IS 1 

IAE ;CHANGE IAE BIT 
004644 004536 BIS QAATTENT ,@ASAVERE+24 ;SET APPROPIATE ‘ATA’ BITS 
162314 004524 MOV . @RHDST,a#SAVERE+12 ;RHDST IS INDETERMINATE 

:S0 IT IS NOT CHECKED 


;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH 
z*CONTENTS AFTER ATTEMPTED WRITE WITH AN "IAE" ERROR 


034070 JSR RO, d#COMREG COMPARE SAVED REGISTERS WITH 
ERE [GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
RETURN TO 1$ ON ERROR 
017714 ;RETURN TO 2$ ON NO ERROR 


017710 104054 : ERROR 54 ATTEMPTED OPERATION WITH 
017712 000207 RTS PC ; INVALID ADDRESS CAUSED 
; IMPROPER REGISTER CHANGE 
GOOD ay GIVES WHAT SHOULD 


SBE THERE 

017714 : RECEIVED DATA GIVES REGISTER 
CONTENTS AFTER ATTEMPTED 
[WRITE HEADER AND DATA 


nn rnnnnrrrhnr rn neha PPP PAP PPPPPPHPHPPPPPPHPPPPHPHPHPHH LH 
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017714 000004 TST21: SCOPE 
012706 007900 MOV ASTACK, SP RESET STACK 
012737 000021 MOV #21 ,@ATSTNM SAVE TEST NUMBER 
004737 033072 JSR PC ,@#CLDISK 3SET R1-RHCS1, R2-RHCS2 


3*FILL WRITE a BUFFER ty DATA 
004037 032742 JSR RO,@A4CLAREA CLEAR 256. WORDS, FROM WRFROM 
002370 WRF ROM ‘STARTING FROM WRF ROM 
000400 256. 7256. WORDS 
017744 000377 sFILL WITH 377 


;*WRITE DATA COMMAND WILL BE FILLED 
017746 004037 035054 JSR RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
000000 0 CYLINDER 0 


ss 
par 


>) 
ed ot td os 
ee 


000 
023 
177400 
002370 ADDRESS 
=DO NOT INHIBIT ~ en INCREMENT 


000000 
010000 716 BITS PER WORD 
002342 :GET READY TO DO a URIDAT 


DNAARWYU—OS 


;*SAVE REGISTERS FOR COMPARISON AFTER o_o WRITE DATA 
004037 033240 SR RO, @#SAVER SAVE REGISTERS 
002172 SRHWC IS THE FIRST REGISTER SAVED 
004512 STARTING ADDRES OF WHERE 
000022 18. [NUMBER OF REGISTERS 


004737 033152 PC ,aACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
104401 057176 ~CPHALT CANNOT CONTINUE TESTING IF NOT 
000000 STOP TEST 


013777 004506 162144 @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


013746 @AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
052716 #GO!IE, (SP) ;GET READY TO SET GO AND 
012677 162142 (SP)+,@RHCS1 :GO WITH 


104413 WAIT FOR IAE BIT TO SET 
;WAIT FOR RHER1 REGISTER 
WAIT FOR IAE BIT IN — REGISTER 
zALLOW 90 MICRO SECONDS 
7; IAE MUST SET BFTWEEN 


3 *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


7*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 
; *RHWC ,RHBA,RHCS1,RHCS2, CANNOT BE PEREDETERMINED 
:*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS 


017737 162116 004512 MOV @RHWC ,@ASAVERE ;RHWC IS UNPREDICTABLE 
AS EXPLAINED ABOVE 
017737 162112 004514 MOV @RHBA , A#SAVERE+2;RHBA IS UNPREDICTABLE 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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S EXPLAINED ABOVE 
017737 004516 @RHCS2, awSAVERE+é ; ZRHCS2 IS UNPREDICTABLE 


AS EXPLAINED ABOVE 
017737 162102 004520 @RHCS1,@#SAVERE+6;RHCS1 IS UNPREDICTABLE 
zAS_ EXPLAINED 


ABOVE 
033762 J RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
ZCHANGE RHDS1 REGISTER 
:2 BIT/BITS TO ath CHANGED 
;NEW VALUE OF ATA IS 1 
ATA [CHANGE ATA BIT 
1 :NEW ne OF ERR IS 1 
040000 ERR CHANGE ERR BIT 
020120 162060 004524 MOV @RHDST, awSAVERE+12 ;RHDST IS INDETERMINATE SO IT IS NOT CHECKED 


020126 033762 JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
_— ; GISTER 


1 ae VALUE OF IAE IS 1 
002000 IAE HANGE IAE BIT 
020142 004644 004536 BIS @A4ATTENT, awsAvEREs 4 ;SET APPROPIATE ‘ATA’ BITS 


:*COMPARE REGISTERS BEFORE ATTEMPTED WRITE DATA 
3*WITH AFTER ATTEMPT, IAE SHOULD BE SET 
020150 034070 RO, a@4COMREG COMPARE SAVED REGISTERS WITH 
GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC’ 
18: REGISTERS TO BE COMPARED 


ETURN TO 1$ ON ERROR 
020172 [RETURN TO 2$ ON NO ERROR 


104054 : ERROR 54 ATTEMPTED WRITE DATA 
020170 000207 RTS PC WITH INVALID ADDRESS 
;CAUSED IMPROPER REGISTER 


; CHANGE 
020172 : :GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
sRECEIVED DATA GIVES WHAT 
:WAS THERE AFTER AFTER ATTEMPT 
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020172 000004 TST22: SCOPE 
012706 0 MOV #STACK, SP ;RESET STACK 
012737 00002 MOV #22 ,QATSTNM SAVE TEST NUMBER 
004737 033072 JSR PC ,@#CLDISK 3SET R1-RHCS1, R2-RHCS2 


:*GET THE HEADS TO CYLINDER 10 


020212 004737 033152 JSR PC ,@#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
020216 104401 057176 TYPE ,CPHALT CANNOT CONTINUE TESTING IF NOT 
020222 000000 HALT :STOP TEST 


020224 013777 004506 161734 MOV @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


020232 004037 033042 JSR RO, @#SEEKCY SEEK FOR 
020236 000010 CYLINDER 10 


020240 013746 @ASEECOM,-(SP) ;GET READY TO MOVE COMMAND 
020244 052716 AGO! IE, (SP) ;GET READY TO SET GO AND 
020250 012677 161724 (SP)+,@RHCS1 GO WITH 


020254 104413 :WAIT FOR DRY BIT TO SET 
002222 ;WAIT FOR RHDS1 REGISTER 
WAIT FOR DRY BIT IN RHDS1 REGISTER 
015530 ° ;ALLOW 70000 MICRO SECONDS 
015530 . ;DRY MUST SET BETWEEN 


004737 033072 PC ,@#CLDISK SET R1-RHCS1, R2-RHCS2 


z*FILL READ INTO BUFFER WITH 125252 
004037 032742 JSR RO, @4CLAREA :CLEAR 260 WORDS, FROM REINTO 
003434 a 0 SSTARTING FROM REINTO 


000260 2 3260 WORDS 
125252 125252 FILL WITH 125252 


;*THE READ HEADER AND DATA COMMAND IS FILLED 
004037 035054 JSR RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
000000 0 CYLINDER 0 
026 ;SECTOR 22. 


000 . STRACK 0 
177374 ‘ WORD ee a (DATA) = 256. + 
003434 BUS ADDRESS 
000000 0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
014000 FMT22!ECI 316 BITS PER WORD FORMAT 
020324 002350 REFOR :GET READY TO DO A REFOR 


;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED READ 
020326 004037 033240 JSR RO, @#SAVER SAVE REGISTERS 
: :RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
SNUMBER OF REGISTERS 


033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
020344 057176 ‘ CANNOT CONTINUE TESTING IF NOT 
020350 0000 STOP TEST 
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020352 013777 004506 161606 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 
020360 0 ;GET READY TO MOVE COMMAND 
020364 :GET READY TO SET GO AND 
020370 (SP)+,@RHCS1 GO WITH 


020374 WAIT FOR IAE BIT TO SET 

020376 WAIT FOR RHER1 REGISTER 

020400 002000 ;WAIT FOR IAE BIT IN RHER1T REGISTER 
020402 ée sALLOW 20 MICRO SECONDS 

020404 00000 ° ;IAE MUST SET BETWEEN 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


7*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 
; *RHWC,RHBA,RHCS1,RHCS2, CANNOT BE PEREDETERMINED 
;*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS 


017737 161560 004512 @RHWC , A SAVERE HWC IS UNPREDICTABLE 
AS EXPLAINED ABOVE 
017737 161554 004514 @RHBA , AA SAVERE +2 7RHBA IS UNPREDICTABLE 
SAS EXPLAINED ABOVE 
017737 161550 004516 @RHCS2 , @ASAVERE +4 SRHCS2 IS UNPREDICTABLE 
SAS EXPLAINED ABOVE 
017737 161544 004520 @RHCS1 , @HSAVERE +6 ;RHCS1 IS UNPREDICTABLE 
zAS_ EXPLAINED ABOVE 
033762 JS RO, @A#CHREG sCHANGE BITS IN ope REGISTER 
CHANGE RHDS1 REGISTE 
:2 BIT/BITS TO BE CHANGED 
NEW is a" ATA IS 1 
CHANGE ATA BIT 
1 ;NEW VALUE OF ERR IS 1 
ERR T 


040000 CHANGE ERR BI 
017737 161522 004524 MOV @RHDST ,a#SAVERE +42 ;RHDST IS INDETERMINATE SO IT IS NOT CHECKED 


004037 033762 JSR RO, @A#CHREG ;CHANGE BITS IN SAVED REGISTER 
002202 RHER1 ; CHANGE RHER1 REGISTER 

000001 1 :1 BIT/BITS TO BE CHANGED 
000001 1 NEW VALUE OF IAE IS 1 

002000 IAE CHANGE IAE BIT 

053737 004644 004536 BIS QHATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA* BITS 


;*COMPARE REGISTERS BEFORE ATTEMPTED READ HEADER 

z*AND DATA — AFTER ATTEMPTED READ 
004037 034070 RO, @#COMREG s COMPARE SAVED REGISTERS WITH 
004512 ;GOOD DATA SAVED IN ‘SAVERE* 
002254 WC TEST DATA STARTING FROM ‘RHWC' 
000022 . 218. REGISTERS TO BE COMPARED 
020524 ;RETURN TO 1$ ON ERROR 

020522 020530 ;RETURN TO 2$ ON NO ERROR 


020524 104054 : ERROR 54 ATTEMPTED READ HEADER 

020526 000207 RTS PC AND DATA WITH INVALID 
ADDRESS CAUSED IMPROPER 
REGISTER CHANGE 
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;GOOD DATA GIVES WHAT 
; SHOULD BE THERE 
RECEIVED DATA GIVES 
REGISTER CONTENTS 
;AFTER ATTEMPTED 
;READ 


SEQ 0095 
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020530 


020716 


004737 
104401 
000000 
013777 
013746 


052716 
012677 


002222 


10:07 


001000 
000023 
033072 


032742 


035054 


033240 


033152 
057176 
004506 
002346 


000101 
161326 


033762 


161274 
033762 
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161330 


004524 
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SCOPE 

MOV ASTACK , SP 
MOV #23,a4TSTNM 
JSR PC ,@#CLDISK 


:*FILL READ INTO BUFFER 
JSR RO, @4CLAREA 
RE INTO 


260 
125252 


;RESET STACK 
;SAVE TEST NUMBER 
3SET R1-RHCS1, R2-RHCS2 


WITH 125252 
CLEAR 260 WORDS, FROM REINTO 
STARTING FROM REINTO 


:260 WORDS 
sFILL WITH 125252 


;*THE READ HEADER AND DATA COMMAND IS FILLED 
R RO, @#RUN ss 


ECI 
READAT 


ETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 
: SECTOR 20. 


;DO NOT INHIBIT BUS ADDRESS INCREMENT 
:18 BITS PER WORD FORMAT 
[GET READY TO DO A READAT 


gaa: REGISTERS FOR COMPARISON AFTER ATTEMPTED READ 


RO, @A#SAVER 


PC ,@#CHECKT 
~CPHALT 


@ARP4SVEC ,ARPVEC 
@AREADAT ,~ (SP) 


#GO!IE, (SP) 
(SP)+,@RHCS1 


SAVE REGISTERS 

;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 

NUMBER OF REGISTERS 


CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 
CANNOT CONTINUE TESTING IF NOT 
STOP TEST 


SET RPO4 VECTOR ADDRESS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
:GO WITH 


;WAIT FOR IAE BIT TO SET 

WAIT FOR RHER1 REGISTER 

WAIT FOR IAE BIT IN RHER1 REGISTER 
sALLOW 20 MICRO SECONDS 

;1AE MUST SET BETWEEN 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO, @4CHREG ; CHAN 


E BITS IN SAVED REGISTER 
CHANGE RHCS? REGISTER 
:2 BIT/BITS TO BE CHANGED 
sNEW VALUE OF SC IS 1 
CHANGE SC BIT 
NEW se OF TRE IS 1 
GE TRE BIT 


; CHANGE T 
@RHDST , AASAVERE+12;RHDST IS UNPREDICTABLE 
; CHANG 


RO, @ACHREG 


F BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 


1 
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020720 


020746 


020754 


020770 


020772 
020774 


020776 


002000 
053737 


004037 
004512 
002254 
000022 
020772 
020776 


104054 
000207 


033762 


004644 


034070 


MACY11 30A(1052) 
723 


004536 





27=JUL=78 


2 
1 
ATA 
1 
ERR 
JSR 


_— 


: 
IAE 
BIS 


RO, @#CHREG 


G 8 
12:32 PAGE 
INVALID ADDRESS ERROR = 


98 


RHER1 (BIT #10) 1AE 
2 BIT/BITS TO BE CHANGED 


NEW _ ae ATA IS 1 

; CHANGE ATA BIT 

[NEW VALUE a ERR IS 1 

; CHANGE ERR BIT 

[CHANGE BITS IN SAVED REGISTER 


[CHANGE RHER1 REGISTER 
31 BIT/BITS TO BE CHANGED 
NEW VALUE OF IAE IS 1 


; CHANGE IAE BIT 
@A4ATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA' BITS 


;*COMPARE REGISTERS BEFORE ATTEMPTED READ 
7*DATA WITH AFTER ATTEMPTED READ DATA 


RO, a#COMREG 


COMPARE SAVED REGISTERS WITH 
;GOOD DATA SAVED IN ‘SAVERE’ 


ZTEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 

RETURN TO 2$ ON NO ERROR 


;ATTEMPTED READ 

DATA WITH INVALID 
;ADDRESS CAUSED IMPROPER 
REGISTER CHANGE 

:GOOD DATA GIVES WHAT 

; SHOULD BE THERE 
;RECEIVED DATA GIVES 
REGISTERS CONTENTS 
AFTER ATTEMPTED 

;READ 





C2 
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020776 
021000 


021004 
021012 


021016 


021034 


021036 
021042 
021044 
021046 


021050 


02 

021070 
021072 
021076 
021102 
021104 
021112 
021116 
021122 


021126 


021140 


26-JUL-78 


000004 
012706 
012737 
004737 


013777 
013746 
052716 
012677 


104413 


004704 
004737 


2 


001000 
000024 
033072 


032716 


032742 


035054 


033152 
057176 
004506 
002344 


000101 
161052 


033072 


MACY11 30A(1052) 
123 


004504 


161054 


TST24: 
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INVALID ADDRESS ERROR = RHER1 (BIT #10) IAE C2 
SCOPE 
MOV #STACK, SP RESET STACK 


MOV #24 ,QATSTNM SAVE TEST NUMBER 
JSR PC ,@#CLDISK SET R1-RHCS1, R2=-RHCS2 


s*FILL WRITE ty BUFFER WITH HEADER 
JSR RO, a4F LHEAD ;SAVE HEADER DATA IN WRFROM 


WRF ROM ;LOCATION WHERE SAVED 
4 NUMBER OF WORDS SAVED 
10000 sFIRST DATA WORD 
0 :SECOND DATA WORD 
0 THIRD DATA WORD 
0 zFOURTH DATA WORD 
:*FILL WRITE Ay BUFFER WITH DATA 
JSR RO, @4CLAREA sCLEAR 256. WORDS, FROM WRFROM+<4*2> 
ty sSTARTING FROM WRFROM+<4*2> 
256. 7256. WORDS 


“FILL WITH 0 


i*THE FIRST WRITE OPERATION IS DONE 
*FILL WRITE HEADER AND DATA COMMAND 


JSR RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 

0 CYLINDER 0 

-BYTE O SECTOR 0 

-BYTE 0 ; TRACK 0 

-256.-4 ;WORD COUNT (DATA) = 256. + 

WRF ROM ;BUS ADDRESS 

0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

WRIFOR [GET READY TO DO A WRIFOR 

JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
TYPE ,CPHALT CANNOT CONTINUE TESTING IF NOT 

HALT ;STOP TEST 


MOV @ARPSVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
MOV @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS A#GO!IE, (SP) :GET READY TO SET GO AND 

MOV (SP)+,@RHCS1 :GO WITH 

WAT :WAIT FOR RDY BIT TO SET 

RHCS1 WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
2500. 7 ALL OW 25000 MICRO SECONDS 

2500. RDY MUST SET BETWEEN 

JSR PC ,a#CLDISK [SET R1-RHCS1, R2-RHCS2 


:*CHECK THE DRIVE TYPE AND DO THE 
7 *APPROPRIATE SECOND WRITE OPERATION 


*FILL WRITE FROM BUFFER WITH HEADER 


1 8 
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021144 005737 004636 @ARPO6 =; TEST FOR onest DRIVE 
021150 001411 15$ TREAT DRIVE AS AN RPO4 
STREAT AS AN RPO6 


021152 004037 032716 J RO, @4F LHEAD ;SAVE HEADER DATA IN WRFROM 
002370 ;LOCATION WHERE SAVED 
000004 “ :NUMBER OF WORDS SAVED 
011456 11456 FIRST DATA WORD 
011025 <18.*400>!<21.> ;SECOND DATA WORD 
000000 D 


A WORD 
021172 000410 16$ CONTINUE WITH THE SECOND WRITE 


021174 : 
004037 032716 JSR RO, @AF LHEAD SAVE HEADER DATA IN WRFROM 
002370 WRF ROM ;LOCATION WHERE SAVED 
000004 4 NUMBER OF WORDS SAVED 
010632 10632 FIRST DATA WORD 

011025 <18.*400>!<21.> ;SECOND DATA WORD 
000000 0 D 


000000 ; 
[CONTINUE WRITE 


*FILL WRITE Ay BUFFER WITH DATA = 65125 
004037 032742 JSR RO, @#CLAREA CLEAR 256. WORDS, FROM WRFROM+<4*2> 
00 WRFROMe<Ge2> STARTING FROM WRFROM+<4*2> 
0004 256. 5256. WORDS 
021224 <26.*2000>!<18.*40>!<21.> FILL WITH <26.*2000>!<18.*40>!< 


;*CHECK THE DRIVE TYPE AND 
*FILL WRITE FROM BUFFER WITH APPROPRIATE NEXT HEADER 


z*THIS IS A NON EXISTANT HEADER AND SHOULD NOT BE WRITTEN 
7*SINCE "AOE" SHOULD INHIBIT THE WRITE OPERATION 


021226 005737 004636 TST @ARPO6 =; TEST FOR wt DRIVE 
021232 001411. .- BEQ 17$ ; TREAT UNIT AS AN RPO4 
; TREAT AS AN RPO6 


004037 032716 JSR RO, @4F LHEAD ;SAVE HEADER DATA IN WREROM+<260.*2> 
00 WRF ROM+<260. *2> ; LOCATION — SAVED 


4 
11457 
0 
0 


0 
021254 BR 18% CONTINUE WITH TEST 


021256 
021256 004037 032716 RO, @A#F LHEAD SAVE HEADER DATA IN WRFROM+<260. *2> 
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021262 003400 WRF ROM+<260. *2> ;LOCATION WHERE SAVED 
021264 000004 4 ;NUMBER OF WORDS SAVED 
010633 10633 FIRST DATA WORD 
000000 0 [SECOND DATA WORD 
0 ZTHIRD DATA WORD 
0 FOURTH DATA WORD 


021276 >; CONTINUE 
;*FILL WRITE FROM BUFFER hpi DATA FOR NEXT SECTOR 

021276 032742 JSR RO, @#CLAREA AR 2 WORDS, FROM WRFROM+<264.*2> 
WRF ROM+<264. *2> : STARTING FROM WRFROM+<264.*2> 
2 z2 WORDS 
<27.*2000> FILL WITH <27.*2000> 


;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE 
;*FILL WRITE HEADER AND DATA COMMAND 


004636 @ARPO6 =; TEST FOR RPO6 DRIVE 
7$ TREAT UNIT AS AN RPO4 
; TREAT UNIT AS AN RPO6 


035054 RO, @4#RUN fy TO aie. FOR DATA COMMAND 


21. 
18. K 18. 

:WORD COUNT (DATA) = 257. + 

BUS ADDRESS 

;DO NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

8s [GET READY TO DO A WRIFOR 


035054 ; RO, @#RUN :SETUP TO RUN FOR DATA COMMAND 
- CYLINDER 410. 


18. 


K 18. 
‘WORD COUNT (DATA) = 257. + 
BUS ADDRESS 
;DO NOT INHIBIT y: ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
SGET READY TO DO A WRIFOR 


3 *SAVE g gn FOR COMPARISON AFTER _ HEADER AND DATA 
033240 JSR RO, @#SAVER SAVE REGISTERS 
:RHWC IS THE FIRST REGISTER SAVED 
[STARTING ADDRES OF WHERE 
021374 0000 18. NUMBER OF REGISTERS 


021376 004737 033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
104401 057176 ,CPHALT CANNOT CONTINUE TESTING IF NOT 
000000 STOP TEST 


021410 013777 004506 160550 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 
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021416 013746 002344 MOV @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
021422 052716 000101 BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
021426 012677 160546 MOV (SP)+,@RHCS1 GO WITH 


021432 ;WAIT FOR RDY BIT TO SET 
002200 ;WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 
. ;ALLOW 25000 MICRO SECONDS 
021442 . ;RDY MUST SET BETWEEN 


> * CHANGE — REGISTERS TO EXPECTED VALUES 
021444 032774 JSR RO, @4F ILLRE ;MOV WRFROM+<260. *2>+<1. “wad INTO SAVED RHBA 
RHBA sSAVED REGISTER TO _ 
WRF ROM+<260. *2>+<1.*2> ATA 


032774 JSR RO, @4F ILLRE :MOV_0O INTO SAVED RHWC 
HWC tort REGISTER TO CHANGE 


:DA 

033762 JS RO, @4#CHREG CHANGE BITS IN SAVED REGISTER 

1 CHANGE RHCS1 REGISTER 

:2 BIT/BITS TO BE CHANGED 
NEW VALUE OF SC IS 1 
;CHANGE SC BIT 
NEW — OF TRE IS 1 
CHANGE TRE BIT 

033762 JS RO, @#CHREG ZCHANGE BITS IN SAVED REGISTER 
CHANGE RHCS2 REGISTER 
:2 BIT/BITS TO BE CHANGED 
s;NEW VALUE OF OR IS 1 
; CHANGE OR BIT 
NEW VALUE OF IR IS 1 
;CHANGE IR BIT 

032774 RO, @4F ILLRE ;MOV AOE INTO SAVED RHER1 
a REGISTER TO CHANGE 


033762 RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
[3 BIT/BITS TO BE CHANGED 
NEW a A OF ATA IS 1 
CHANGE ATA BIT 
NEW VALUE OF ie IS 1 
; CHANGE ERR 
NEW VALUE OF let IS 1 
002000 LBT ; CHANGE LBT BIT 
021560 053737 004644 004536 BIS @AATTENT ,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS 
z*CHECK DEVICE TYPE BEFORE SETTING UP ‘RHCA' & ‘RHCC* 


021566 005737 004636 @ARPO6 =; TEST FOR mee DRIVE 
021572 001411 9$ TREAT AS RPO4 
: TREAT AS RPO6 


021574 004037 032774 RO, @4F ILLRE s;MOV 815. INTO SAVED RHCA 
1600 002212 ay fertiy REGISTER TO CHANGE 


02 

021602 001457 . ;DAT 

021604 004037 032774 RO, @AF ILLRE :MOV 814. INTO SAVED RHCC 
021610 002234 SAVED REGISTER TO CHANGE 








CZRJJCO, RPO4/5/6 Abe" CTRLR2 MACY11 =— 27-JUL-78 12:39 


CZRJJC.P11 


021662 
021664 


26-JUL-78 10:07 


017737 


oases 


004512 

002254 
000022 
021662 
021666 


104055 
000207 


814. 
BR 10$ 
032774 : R RO, a4F ILLRE 


11. 
032774 te RO, @4F ILLRE 


8 
PAGE 103 


ADDRESS OVERFLOW ERROR = RHER1 (BITA9) AOE 


;DATA 
; CONTINUE WITH TEST 


:MOV 411. INTO SAVED RHCA 
a REGISTER TO CHANGE 


:DAT 
sMOV 410. INTO SAVED RHCC 


aay REGISTER TO CHANGE 
[CONTINUE WITH TEST 


160342 004524 MOV @RHDST ,@#SAVERE+12 ;RHDST IS UNPREDICTABLE 
: *COMPARE yates, BEFORE WRITE HEADER AND DATA WITH AFTER 


034070 JS RO 


ERROR 55 
RTS PC 


COMPARE SAVED REGISTERS WITH 
;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC" 
718. REGISTERS TO BE COMPARED 
:RETURN TO 1$ ON ERROR 

;RETURN TO 2$ ON NO ERROR 


;WRITING HEADER AND DATA WITH 
EXPECTED ADDRESS OVERFLOW ERROR 
;CAUSED IMPROPER REGISTER 


; CHANGE 

;GOOD DATA GIVES WHAT SHOULD 
BE THERE 

RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER WRITE 
;HEADER AND DATA 


SEQ 0102 
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7*NOW PREPARE 70 DO A READ HEADER AND DATA 
;*(THE FIRST READ OPERATION) 


*CHECK THE DRIVE TYPE AND FILL 
021666 7 *WRITE FROM BUFFER WITH APPROPRIATE EXPECTED HEADER 


021666 004737 033072 ‘ PC, a#CLDISK :SET R1-RHCS1, R2-RHCS2 


021672 005737 004636 @ARPO6 =; TEST FOR we DRIVE 
021676 001411 19% TREAT UNIT AS AN RPO4 
; TREAT AS AN RPO6 


004037 032716 JSR RO, @AF_LHEAD ;SAVE HEADER DATA IN WRFROM 
002370 ;LOCATION WHERE SAVED 
000004 4 SNUMBER OF WORDS SAVED 
011456 11456 ;FIRST DATA WORD 
011025 <18.*400>!<21.> ;SECOND DATA WORD 
000000 ; THIRD DATA WORD 
000000 zFOURTH DATA WORD 

021720 000410 20$ ;CONTINUE WITH TEST 


021722 
004037 032716 JSR RO, @4F LHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM [LOCATION WHERE SAVED 
“ [NUMBER OF WORDS SAVED 
FIRST DATA WORD 


10632 
<18.*400>!<21.> ;SECOND DATA WORD 
0 ; THIRD DATA WORD 
0 ;FOURTH DATA WORD 
021742 : ; CONT INUE 


*FILL WRITE Ay BUFFER WITH EXPECTED DATA 
021742 032742 JSR RO, @ACLAREA CLEAR 256. WORDS, FROM WRFROM+<4*2> 
021746 WRFROM+<ax3> STARTING FROM WRFROM+<4*2> 
021750 000400 256. 3256. WORDS 
021752 <26. *2000>!<18.*40>!<21.> FILL WITH <26.*2000>!<18.*40>!< 


7*FILL WRITE ag BUFFER WITH 377 FROM WORDS 261 TO 266 
021754 032742 JSR RO,@#CLAREA CLEAR 6 WORDS, FROM WRFROM+<260.*2> 
WREROM+<260. #25 ZSTARTING FROM WRFROM+<260. *2> 
6 :6 WORDS’ 
377 sFILL WITH 377 
:*CLEAR READ a BUFFER 
032742 JSR RO, @ACLAREA :CLEAR 266. WORDS, FROM REINTO 
RE INTO : STARTING ae RE INTO 
266. ;266. WORDS 
021776 000377 377 SFILL WITH 377 


022000 004737 033072 JSR PC ,a@A4CLDISK SET R1-RHCS1, R2-RHCS2 
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*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE 
*FILL READ HEADER AND DATA COMMAND 


022004 004536 @ARPO6 =; TEST FOR RPO6 DRIVE 
022010 11$ ; TREAT UNIT AS AN RPO4 
; TREAT UNIT AS AN RPO6 
022012 035054 RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
aes 814. 
21. SECTOR 21. 
18. ; TRACK 18. 
[WORD COUNT (DATA) = 326. + 
[BUS ADDRESS 
;DO NOT INHIBIT cn ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
REFOR :GET READY TO DO A REFOR 
12$ : CONT INUE 


035054 RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
410. CYLINDER 410. 
SECTOR 21. 
STRACK 18. 
;WORD COUNT (DATA) = 326. + 
BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
014000 ECI!FMT22 316 BITS PER WORD FORMAT 
002350 REFOR ;GET READY TO DO A REFOR 
ZCONTINUE WITH TESTING 


MUA 


:*SAVE REGISTERS FOR COMPARISON AFTER 
;*READ HEADER AND DATA 
004037 033240 $ RO, @#SAVER SAVE REGISTERS 
002172 SRHWC IS THE FIRST ge bbe SAVED 
004512 STARTING ADDRES OF 
022070 000022 18. [NUMBER OF REGISTERS 


022072 004737 033152 PC ,@A#CHECKT CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 1 
022076 104401 057176 : ~CPHALT CANNOT CONTINUE TESTING IF NOT 
022102 000000 STOP TEST 


022104 013777 004506 160054 @ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


022112 013746 002350 @AREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
022116 052716 009101 AGO!IE, (SP) GET READY TO SET GO AND 
022122 012677 160052 (SP) +,@RHCS1 :GO WITH 


022126 104413 ;WAIT FOR RDY BIT TO SET 
002200 ;WAIT FOR RHCS1 REGISTER 
000200 WAIT FOR RDY BIT IN RHCS1 REGISTER 
001614 . ALLOW 9080 MICRO SECONDS 
001507 : RDY MUST SET BETWEEN 


3; *CHANGE SAVED REGISTERS TO EXPECTED VALUES 
022140 004037 032774 JSR RO, @4F ILLRE MOV _REINTO+<260.*2> INTO SAVED RHBA 
022144 002174 RHBA SAVED REGISTER TO CHANGE 
022146 004444 RE INTO+<260. *2> iDATA 
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02¢150 


022232 


022234 
022240 


022242 


022264 


022314 


022316 
022320 


26-JUL-78 


005737 
001405 


053737 
017737 


022322 


104055 
000207 


CTRLR2 
10:07 


032774 


033762 


033762 


032774 


004636 


032774 


032774 


004644 
157706 


034070 


MACY11 30A(1052) 
T24 


004536 
00452% 


13$: 


14$: 


3$: 
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JSR RO, @4F ILLRE zsMOV -70. INTO SAVED RHWC 
_— ory REGISTER TO CHANGE 
JSR RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
RHCS1 CHANGE RHCS1 REGISTER 

2 72 BIT/BITS TO BE CHAN 

1 :NEW VALUE OF SC IS 1 

SC ;CHANGE SC BIT 

1 ;NEW VALUE OF TRE IS 1 
TRE ; CHANGE TRE BIT 

JSR RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 

3 33 BIT/BITS TO BE CHANGED 
1 NEW ba 8 OF ATA IS 1 
AIA ;CHANGE ATA BIT 

1 NEW VALUE OF ERR IS 1 
ERR ; CHANGE ERR BIT 

1 SNEW VALUE OF LBT IS 1 
LBT ; CHANGE LBT BIT 

JSR RO, @AF ILLRE sMOV AOE INTO SAVED RHER1 
RHER1 ;SAVED REGISTER TO CHANGE 
AOE DATA 


>*CHECK DRIVE TYPE BEFORE SETTING UP ‘RHCA* 
TST @ARPO6G =; TEST FOR RPO6 DRIVE 


BEQ 13$ : TREAT UNIT AS AN RPO4 
“TREAT UNIT AS AN RPO6 

JSR RO, a4F ILLRE “MOV 815. INTO SAVED RHCA 

RHCA : SAVED REGISTER TO CHANGE 

BR 14$ : CONT INUE 

JSR RO, a4F ILLRE :MOV 411. INTO SAVED RHCA 

RHCA : SAVED REGISTER TO CHANGE 


CONTINUE WITH TEST 
BIS @A4ATTENT ,AMSAVERE+24 ;SET APPROPIATE ‘ATA* BITS 
MOV @RHDST ,@#SAVERE+12 ;RHDST IS UNPREDICTABLE 


z*COMPARF REGISTERS BEFORE READ HEADER AND DATA WITH 
oo tectelt AFTER COMMAND 


J RO, a#COMREG : COMPARE SAVED REGISTERS WITH 
SAVERE [GOOD DATA SAVED IN 'SAVERE' 

WC TEST DATA STARTING FROM ‘RHWC' 
18. 718. REGISTERS ay = COMPARED 
3$ SRETURN TO 3$ ON ERROR 

4$ ;RETURN TO 4$ ON NO ERROR 
ERROR 55 ;READING HEADER AND DATA WITH 
RTS PC EXPECTED ADDRESS OVERFLOW 


;ERROR CAUSED IMPROPER 
REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 


SEQ 0105 
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;BE THERE 
RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMAND 


3*NOW COMPARE THE DATA READ 


004037 035120 JSR RO, @4#COMPAR COMPARE TWO BLOCKS OF MEMORY 
0 WRF ROM ;GOOD DATA STARTS FROM WRF ROM 
RE INTO ;TEST DATA STARTS FROM REINTO 
266. 1266., WORDS TO BE COMPARED 
5$ [RETURN TO 5$ ON ERROR 
6$ ;RETURN TO 6$ ON NO ERROR 


022340 : ERROR DATA READ WITH AN EXPECTED 
022342 000207 RTS C ADDRESS OVERFLOW ERROR 
:1S os ECT 
D NO 1 TO 260 SHOULD 
BE Sa CORRECTLY 
D NO 261 TO 266 SHOULD 
SNOT CHANGE DUE TO THE READ 


022322 


022344 


022344 004737 033072 : PC, a#CLDISK :SET R1=-RHCS1, R2=RHCS2 
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;*NOW PREPARE 70 READ CYLINDER 0, SECTOR g- TRACK 0 
:*TO SEE THAT NOTHING GOT WRITTEN ON THERE 
*WITH THE ADDRESS OVER FLOW BIT SET (AOE) 


;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER 
022350 032716 JSR RO, @4F LHEAD ; SAVE HEADER ae eae WRF ROM 


4 
10000 
0 
0 


0 sf D 
032742 JSR RO, @ACLAREA CLEAR 256. WORDS, FROM WRFROM+<4*2> 
WRF ROM+<4*2> ; STARTING FROM WRFROM+<4*2> 
256. 3256. WORDS 
sFILL WITH 0 


*FILL READ INTO BUFFER WITH 377 
022402 032742 RO, @4CLAREA CLEAR 260. WORDS, FROM REINTO 
022406 ; STARTING gat RE INTO 
022410 000404 0. 1260. WORDS 
022412 sFILL WITH 377 


022414 033072 JSR PC, ,a@4CLDISK 3SET R1-RHCS1, R2-RHCS2 


2*FILL ewe 4 gs READ HEADER AND DATA 
022420 035054 JSR RO, a ;SETUP TO RUN FOR DATA COMMAND 
a CYLINDER 0 
TSECTOR 0 
; TRACK 


0 
[WORD COUNT (DATA) = 256. + 
[BUS ADDRESS 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
022440 REFOR ;GET READY TO DO A REFOR 


z*SAVE REGISTERS FOR COMPARISON AFTER READ 
022442 033240 JSR RO, @4#SAVER SAVE REGISTERS 
C :RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
P [NUMBER OF REGISTERS 
033152 PC ,a@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ,CPHALT CANNOT, CONTINUE TESTING IF NOT 


013777 004506 157472 @ARP4VEC ,@RPVEC ;SET RPO4 VECTOR ADDRESS 


022474 013746 002350 @AREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
022500 052716 000101 A#GO'IE, (SP) :GET — TO SET GO AND 
022504 012677 157470 (SP)+,@RHCS1 :GO WITH 


022510 104413 ;WAIT FOR RDY BIT TO SET 

022512 WAIT FOR RHCS1 REGISTER 

022514 WAIT FOR RDY BIT IN RHCS1 REGISTER 
022516 . ZALLOW 25000 MICRO SECONDS 
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4 022520 004704 
4910 
4911 
4912 022522 004037 
4913 022526 002172 
4914 022530 
4915 022532 004037 
4916 022536 002174 
4917 022540 00444 
4918 022542 004037 
4919 022546 002204 
4920 022550 1 
4921 
4922 022552 
4923 022552 004037 
4924 022556 004512 
4925 0225 002254 
4926 022562 000021 
4927 022564 022570 
4928 022566 022574 
4929 
4930 022570 104031 
4931 022572 000207 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 022574 
4951 022574 004037 
4952 022600 002370 
4953 022602 003434 
4954 022604 000404 
4955 022606 022612 
4956 022610 022616 
4957 
4958 022612 104032 
4959 022614 000207 
4960 
4961 
4962 
4963 
4964 


032774 


032774 


032774 


034070 


035120 


MACY11 30A(1052) 
T24 


ST22A: 


4$: 


2$: 
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ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE 


2500. zRDY MUST SET BETWEEN 
3 * CHANGE b> serine TO EXPECTED VALUE 
JSR RO, @4F ILLRE sMOV_ 0 INTO SAVED RHWC 
7 TATA, REGISTER TO CHANGE 
an RO, @AF ILLRE :MOV REINTO+<260.*2> INTO SAVED RHBA 
; SAVED REGISTER TO CHANGE 
RE INTO+<260. *2> DATA 
JSR RO, @A4F ILLRE ;MOV 1 INTO SAVED RHDST 
= Sorte REGISTER TO CHANGE 


7 alla REGISTER BEFORE READ WITH AFTER 
RO, A#COMREG s COMPARE SAVED REGISTERS WITH 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE’ 

WC :TEST DATA STARTING FROM 'RHWC' 
17. 317. REGISTERS TO BE COMPARED 
4$ RETURN TO 4$ ON ERROR 

1$ ;RETURN TO 1$ ON NO ERROR 
ERROR 31 ;READ HEADER AND DATA ON 

RTS PC CYLINDER 0, SECTOR 0 


TRACK O AFTER A FORCED 
;ADDRESS OVER FLOW ERROR 
;CAUSED IMPROPER REGISTER 


; CHANGE 

[GOOD DATA ode WHAT 
SHOULD BE THERE 
:RECEIVED DATA GIVES WHAT 
z;WAS THERE AFTER READ 
[HEADER AND DATA 

IF HEADER COMPARE ERROR 
31S FOUND AND THE DATA 
[ERROR GIVES THE NEW 
SHEADER TO 

SCYLINDER 633/1457 (OCTAL) 
THEN "AOE" OVER FLOWED 


; INTO HERE 
> *COMPARE DATA/READ 
JSR RO,@4COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM :GOOD DATA STARTS FROM WRFROM 
REINTO : TEST DATA STARTS FROM REINTO 
260. 7260., WORDS TO BE COMPARED 
2$ + RETURN TO 2$ ON ERROR 
3$ ;RETURN TO 3$ ON NO ERROR 
ERROR 32 ;READ HEADER AND DATA 
RTS PC :ON CYLINDER 0, TRACK 0 


:SECTOR 0 AFTER A FORCED 
;"AOE* ERROR CAUSED 
7AN ERROR 


;1F FIRST WORD IS 
310633/11457 (OCTAL) THEN 





ony 
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022616 


MACY11 30A(1052) 
T24 


3$: 


= 
27=JUL=78 12:32 PAGE 110 
ADDRESS OVERFLOW ERROR = RHER1T (BIT#9) AOE 


;"AOE’ OVER FLOWED INTO HERE 


SEQ 0109 





aon 
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022616 


099654 


022656 


022710 
022712 
022716 
022722 
022724 
022732 
022736 
022742 


022746 


022756 
022760 


26-JUL-78 1 


013777 
013746 


052716 
012677 


004737 


001000 
000025 
033072 


032716 


032742 


035054 


033152 
057176 
004506 
002344 


000101 
157232 


033072 


MACY11 30A(1052) 
T24 


157234 


TST25: 
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27=JUL=78 12:32 PAGE 111 


SEQ 0110 


ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE 


SCOPE 

MOV STACK, SP 
MOV #25 ,@ATSTNM 
JSR PC ,@4CLDISK 


RESET STACK 
SAVE TEST NUMBER 
SET R1-RHCS1, R2=RHCS2 


z*FIRST WRITE HEADER AND DATA CYLINDER 0, TRACK 0, SECTOR 0 
:*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO, @4#F LHEAD 
OM 


SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
NUMBER OF WORDS SAVED 


FOURTH DATA WORD 


:*FILL WRITE FROM BUFFER WITH DATA 


JSR RO, @4CLAREA 
WRF ROM+<4*2> 
256. 


:*FILL COMMAND 
JS RO, @4RUN 


PC ,@#CHECKT 
~CPHALT 
@ARPSVEC ,ARPVEC 
@AWRIFOR ,~ (SP) 


#GO!IE, (SP) 
(SP)+,@RHCS1 


PC ,@ACLDISK 


:CLEAR 256. WORDS, FROM WRFROM+<4*2> 


3256. WORDS 
FILL WITH 0 


; STARTING FROM WRFROM+<4*2> 


:SETUP TO RUN FOR DATA COMMAND 
sector O 0 


; 0 
[WORD COUNT (DATA) = 256. + 


;BUS ADDRESS 

:DO0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

:GET READY TO DO A WRIFOR 


CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
CANNOT CONTINUE TESTING IF NOT 
STOP TEST 


SET RPO4 VECTOR ADDRESS 


:GET READY TO MOVE COMMAND 
:GET READY TO SET GO AND 
:GO WITH 


:WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR 2DY BIT IN RHCS1 REGISTER 
SALLOW 25uv0 MICRO SECONDS 

:RDY MUST SET BETWEEN 


SET R1-RHCS1, R2-RHCS2 
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;*NOW PREPARE 7O WRITE WITH WRONG FORMAT 


:*FILL WRITE FROM BUFFER 
004037 032742 JSR RO, @ACLAREA CLEAR 256. WORDS, FROM WRFROM 
002370 WRF ROM STARTING FROM WRF ROM 
000400 256. 3256. WORDS 
022774 000377 377 sFILL WITH 377 


:*FILL WRITE DATA COMMAND 
022776 004037 035054 SR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
023002 000000 0 CYLINDER 0 
7SECTOR 0 
000 : TRACK K 0 
177400 ° WORD COUNT = 256. 
002370 ' “BUS ADDRESS 
000000 9 ;DO NOT INHIBIT BUS ee INCREMENT 
000000 y) 318 BITS PER WORD FORMA 
002342 WRIDAT ZGET READY TO DO A WRIDAT 


:*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 
z*WITH WRONG FORMAT 
023020 004037 033240 RO, @#SAVER SAVE REGISTERS 
023024 002172 sRHWC IS THE FIRST REGISTER SAVED 
023026 004512 STARTING ADDRES OF WHERE 
023030 000022 18. NUMBER OF REGISTERS 


023032 004737 033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
104401 057176 ,CPHALT CANNOT CONTINUE TESTING IF NOT 


:STOP TEST 
013777 004506 157114 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002342 @AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 #GO!IE, (SP) :GET READY TO SET GO AND 
012677 157112 (SP)+,@RHCS1 :GO WITH 


:WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

:WAIT FOR RDY BIT IN RHCS1 REGISTER 
sALLOW 8500 MICRO SECONDS 

z:RDY MUST SET BETWEEN 


3 * CHANGE Ran REGISTERS TO yt: VALUE 
005737 004640 TST RH70 3RH70 CONTROLLER 
001411 BEQ os 3;1F NOT, SKIP NEXT RH70 CODE 


032774 JSR RO, a4#F ILLRE :MOV -248. INTO SAVED RHWC 
RHC : SAVED REGISTER TO CHANGE 

032774 JSR —s RO, @#F ILLRE “MOV WRFROM+<8.*2> INTO SAVED RHBA 
RHBA SSAVED REGISTER TO CHANGE 
WRFROM+<8, *2> 


:DATA 
023126 000410 BR 8$ SKIP NEXT RH11 CODE 
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023130 7$: 
032774 RO, @4F ILLRE sMOV -190. INTO SAVED RHWC 
C bo REGISTER TO CHANGE 


032774 "RO, a#F ILLRE “MOV WRFROM+<66.*2> INTO SAVED RHBA 
RHBA + SAVED REGISTER TO CHANGE 
023146 WRF ROM+<66. *2> SDATA 


023150 : 
033762 JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
$1 CHANGE RHCS1 REGISTER 
:2 BIT/BITS TO BE CHANGED 
:NEW VALUE OF SC IS 1 


; E BIT 
033762 JS RO, @#CHREG [CHANGE BITS IN SAVED REGISTER 
[CHANGE RHCS2 REGISTER 
31 BIT/BITS TO BE CHANGED 
[NEW VALUE OF OR IS 1 
; CHANGE OR BIT 
033762 RO, @4CHREG [CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
2 BIT/BITS TO BE CHANGED 
:NEW VALUE ye IS 1 


: I 
032774 J RO, @4F ILLRE :MOV 1 INTO SAVED RHDST 
poy REGISTER TO CHANGE 


1 
004644 004536 @AATTENT, aNSAVERE+24 7SET APPROPIATE ‘ATA* BITS 
033762 RO, @ACHREG ;CHANGE BITS IN SAVED REGISTER 
CHANGE RHER1 REGISTER 
:1 BIT/BITS TO BE CHANGED 
NEW VALUE OF FER IS 1 
; CHANGE FER BIT 
156714 @RHCS2,- (SP) GET RHCS2 
177477 #*C<IR!OR>, (SP) ;KEEP IR AND OR 
000300 004516 MIR!OR,@ASAVERE+4; CLEAR SAVED IR OR 
004516 (SP) +, @#SAVERE+4;SET OR IR AS REQUIRED 


3 


MAMA AAI UT 
ee ee el et ed ed ed ed ed ed 
f\n ew we ot os os 
SOONAWUSWN—O 


: * COMPARE widens ettaary WRITE DATA WITH AFTER ATTEMPT 
034070 JSR RO, @4#COMREG OMPARE SAVED REGISTERS WITH 
‘ G00D DATA SAVED IN ‘SAVERE" 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 
023314 023322 SRETURN TO 2$ ON NO ERROR 


023316 104057 : ERROR 57 ATTEMPTING TO WRITE DATA 
023320 000207 RTS PC WITH WRONG FORMAT BIT CAUSED 
; IMPROPER REGISTER CHANGE 
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023322 
023322 


023326 


0 
023350 


023352 


023372 


023374 


023454 


26-JUL-78 


000400 
125252 


004037 
000000 


013777 


013746 
052716 
012677 


001507 


004037 


R 


TRLR2 
0: 


LR 
07 


033072 
032742 


032742 


035054 


033240 


033152 
057176 
004506 
002346 


000101 
156536 


032774 
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27-JUL=78 12:32 PAGE 114 SEQ 0113 
FORMAT ERROR = RHER1 (BIT #4)FMT 


oe TH alle GIVES WHAT SHOULD 


SRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED WRITE 


;*NOW PREPARE TO READ WITH CORRECT FORMAT TO CHECK 
3*THAT NOTHING GOT WRITTEN 


JSR PC ,a#CLDISK 7SET R1-RHCS1, + Pp 
>*FILL WRITE May BUFFER’ WITH EXPECTED D 
JSR RO,@A#CLAREA CLEAR 256. WORDS, “FROM WRF ROM 
WRF ROM STARTING FROM WRF ROM 
256. 7256. WORDS 
0 FILL WITH O 
;*FILL READ INTO BUFFER WITH 125252 
JSR RO,@#CLAREA CLEAR 256. WORDS, FROM REINTO 
REINTO ZSTARTING FROM REINTO 
256. 7256. WORDS 
125252 ZFILL WITH 125252 
2*FILL pra 4 bg READ DATA 
JSR RO, a ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
-BYTE 0 TSECTOR 0 
-BYTE 0 ; TRACK 0 
-256. [WORD COUNT = 256. 
RE INTO BUS ADDRESS 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22!ECI 316 BITS PER WORD FORMAT 
READAT ;GET READY TO DO A READAT 
;*SAVE REGISTERS FOR COMPARISON AFTER NORMAL READ 
JSR RO, a#SAVER SAVE REGISTERS 
RHWC SRHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 
18. [NUMBER OF REGISTERS 
JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
TYPE ~CPHALT CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 


MOV @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 
MOV @AREADAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
MOV (SP)+,@RHCS1 GO WITH 
WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 WAIT FOR RHCS1 REGISTER 
RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ALLOW 9080 MICRO SECONDS 
839. RDY MUST SET BETWEEN 
;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, @A4F ILLRE MOV REINTO+<256.*2> INTO SAVED RHBA 


CZ 
C2 
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002174 RHBA ; SAVED ye Se TO CHANGE 
0044 RE INTO+<256. *2°- sDATA 
032774 JSR : RO, @4F ILLRE :MOV 0 INTO SAVED RHWC 


SAVED REGISTER TO CHANGE 


0 : DATA 
032774 RO, @4F ILLRE sMOV 1 INTO SAVED RHDST 
‘BATA. REGISTER TO CHANGE 


@RHCS2 , = (SP) ZGET RHCS2 
#°C<IR'OR>,(SP) :KEEP IR AND OR 
004516 #IR!OR, @#SAVERE+4;CLEAR SAVED IR OR 
023522 6 (SP) +, @#SAVERE+4; SET OR IR AS REQUIRED 


3 * COMPARE gerbils. BEFORE READ WITH AFTER 
023526 034070 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
2 ;GOOD DATA SAVED IN ‘SAVERE’ 
STEST DATA STARTING FROM 'RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
023542 023550 RETURN TO 4$ ON NO ERROR 


023544 104033 : ERROR 33 READ DATA AFTER AN 

023546 000207 RTS PC ATTEMPTED WRITE WITH WRONG 
; IMPROPER REGISTER CHANGE 
FORMAT CAUSED 
:GOOD DATA GIVES WHAT SHOULD 
BE THERE 
sRECEIVED DATA GIVES WHAT 
WAS THERE AFTER READ 


z*COMPARE DATA READ AFTER ATTEMPTED WRITE WITH 
;*WRONG FORMAT BIT 


004037 035120 JSR RO, a@#COMPAR COMPARE TWO BLOCKS OF MEMORY 
70 ;GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 
:256., WORDS TO BE COMPARED 
[RETURN TO 5$ ON ERROR 
023572 [RETURN TO 6$ ON NO ERROR 


0235 104034 : ERROR 34 ;DATA READ AFTER AN ATTEMPT 
023570 000207 RTS PC :TO WRITE WITH WRONG FORMAT 
;WAS INCORRECT 


023550 


023572 
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CZRJJC.P11 26-JUL-78 10:07 T26 FORMAT ERROR = RHER1 (BIT #4)FMT 


023572 000004 TST26: SCOPE 
012706 0 ASTACK,SP sRESET STACK 
012737 004504 #26, a4TSTNM SAVE TEST NUMBER 
004737 033972 PC,@4CLDISK SET R1-RHCS1, R2-RHCS2 


:*FILL WRITE FROM BUFFER WITH 107070 
004037 032742 JSR RO,@4#CLAREA CLEAR 256. ape t FROM WRF ROM 
002370 WRF ROM STARTING papel: FROM 


000400 256. 3256. WORDS 
107070 107070 FILL WITH 107070 


7*FILL READ INTO BUFFER WITH 107070 
004037 032742 JSR RO, @4CLAREA CLEAR 256. WORDS, FROM REINTO 
003434 REINTO fl tag ge RE INTO 


000400 256. 7256. 
107070 107070 SFILL WITH 107070 


7*FILL COMMAND TO READ WITH WRONG FORMAT 
035054 JSR RU, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 
SECTOR 0 
; TRACK 0 
WORD COUNT = 256. 
;BUS ADDRESS 
;DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI 718 BITS PER WORD FORMAT 
READAT [GET READY TO DO A READAT 


> *SAVE REGISTERS FOR COMPARAISON AFTER — 
033240 JSR RO, @#SAVER SAVE REGISTERS 
:RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
SNUMBER OF REGISTERS 


033152 PC, he ed CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ,CPHALT CANNOT CONTINUE TESTING IF NOT 
023702 0000 ;STOP TEST 


023704 013777 004506 156254 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


023712 013746 002346 @AREADAT,-(SP) ;GET READY TO MOVE COMMAND 
023716 052716 000101 AGO!IE, (SP) ;GET READY TO SET GO AND 
023722 012677 156252 (SP)+,@RHCS1 GO WITH 


023726 WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
WAIT FOR RDY BIT IN RHCS1 REGISTER 
zALLOW 8500 MICRO SECONDS 
;RDY MUST SET BETWEEN 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


033762 JSR RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
RHCS1 CHANGE RHCS1 REGISTER 
2 :2 BIT/BITS TO BE CHANGED 
023750 000001 1 NEW VALUE OF SC IS 1 
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023752 CHANGE SC BIT 
1 NEW es OF TRE IS 1 
CHANGE TRE BIT 
033762 RO, @ACHREG ZCHANGE BITS IN SAVED REGISTER 
1 :CHANGE RHDS1 REGISTER 
:2 BIT/BITS TO BE a 
sNEW ge A OF ATA IS 1 
CHANGE ATA BIT 
NEW VALUE OF ERR IS 1 
; CHANGE ERR BIT 
032774 J RO, @4F ILLRE ;MOV 1 INTO SAVED RHDST 
i REGISTER TO CHANGE 


1 ; DAT. 
033762 RO, @#CHREG : CHANGE BITS IN SAVED REGISTER 
CHANGE RHER1 REGISTER 
:1 BIT/BITS TO BE CHANGED 
s;NEW VALUE OF FER IS 1 
; CHANGE FER BIT 
004644 004536 @AATTENT ,@#SAVERE+24 ;SET APPROPIATE 'ATA' BITS 
0 MO @RHCS2 , ~ (SP) GET RHCS2 
#°C<IR‘OR>,(SP) :KEEP IR AND OR 
024042 004516 #IR'OR, @#SAVERE+4; CLEAR SAVED IR OR 
024050 052637 6 (SP)+,@#SAVERE+4; SET OR IR AS REQUIRED 


: * COMPARE get, BEFORE WRITE DATA WITH AFTER ATTEMPT 
024054 004037 034070 R RO, @#COMREG COMPARE SAVED REGISTERS WITH 
004512 GOOD DATA SAVED IN ‘SAVERE* 
002254 WC TEST DATA STARTING FROM ‘RHWC' 
000022 118. REGISTERS TO BE COMPARED 
024066 024072 ;RETURN TO 1$ ON ERROR 
024070 024076 ;RETURN TO 2$ ON NO ERROR 


024072 104057 : ERROR 57 ATTEMPTING TO READ DATA 
024074 000207 RTS PC WITH WRONG FORMAT BIT CAUSED 

; IMPROPER REGISTER CHANGE 

‘ DATA GIVES WHAT SHOULD BE 


THERE 
“RECEIVED eo sees WHAT WAS THERE 
;AFTER READ DAT 


:*COMPARE READ INTO BUFFER TO CHECK THAT NOTHING WAS READ 
004037 035120 ‘ a RO, A#COMPAR : COMPARE TWO BLOCKS OF MEMORY 


3GOOD DATA STARTS FROM WRFROM 
s TEST DATA age ie FROM REINTO 


024076 


3$ 
024112 024120 “RETURN TO 4$ ON NO ERROR 


024114 104034 s ERROR 34 ATTEMPT TO READ 

024116 000207 RTS PC WITH WRONG FORMAT BIT 
CHANGED READ INTO BUFFER 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 





ms 
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C2RJJC.P11 26-JUL-78 10:0 726 FORMAT ERROR = RHER1 (BIT #4)FMT 
5350 ;BAD DATA GIVES WHAT WAS 
5351 ; THERE AFTER READ DATA 
5352 
5353 024120 4$: 
5354 
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CZRJJC.P11 


024120 


024146 


024154 


024210 
024212 


024244 
024246 
024254 


C0004 
012706 
hie 14 


0047 
012737 
012737 


013777 
013746 


052716 
012677 


004704 


033072 
032716 


032742 


035054 


033152 
057176 


004506 
002344 


000101 
155710 
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27-JUL-78 12:32 PAGE 119 SEQ 0118 
FORMAT ERROR = RHER1 (BIT #4)FMT 


STACK, SP RESET STACK 
#27 ,Q@ATSTNM SAVE TEST NUMBER 
SET R1-RHCS1, R2=-RHCS2 
#RHCS1,a#TMPO FIRST REGISTER TO BE TESTED 
#7 ,QATMPS [NUMBER OF REGISTERS TO BE TESTED 


;*PREPARE TO WRITE HEADER AND DATA CYLINDER 1, TRACK 0, SECTOR 0 
;*FILL WRITE FROM BUFFER WITH HEADER 


PC,a@A4CLDISK SET R1-RHCS1, R2=-RHCS2 
RO, @4#F LHEAD ;SAVE HEADER DATA IN WRFROM 
ae o WHERE SAVED 


FOURTH DATA WORD 


s*FILL WRITE FROM BUFFER WITH DATA 
JSR RO, @A4CLAREA :CLEAR 256. WORDS, FROM WRFROM+<4*2> 
WRF ROM+<4*2> s STARTING FROM WRFROM+<4*2> 
256. 7256. WORDS 
2000 sFILL WITH 2000 
7*FILL COMMAND 
JSR RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
1 sCYLINDER 1 
SECTOR 0 
: TRACK 0 
zWORD COUNT (DATA) = 200. + 
BUS ADDRESS 
;DO NOT INHIBIT BUS ADDRESS INCREMENT 
:16 BITS PER WORD FORMAT 
GET READY TO DO A WRIFOR 


PC ,a@A#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
CPHAL T Lemme Oa alas TESTING IF NOT 


@ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


@AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) ;GET READY TO SET GO AND 
(SP)+,@RHCS1 ;G60 WITH 


;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

:WAIT FOR RDY BIT IN RHCS1 REGISTER 
sALLOW 25000 MICRO SECONDS 

;RDY MUST SET BETWEEN 


7*NOW BRING THE HEADS TO CYLINDER 0 
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024302 
024306 
024312 


024314 
024320 


024322 
024330 


024354 


024356 


024402 
024406 
024410 
024412 


024414 


024446 


024450 
024454 
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004737 
104401 
000000 
004037 
000000 


013777 


013746 
052716 
012677 


104413 
002222 
000200 


004737 
104401 


CTRLR2 
10:07 

033152 
057176 
033042 


004506 
002352 
000101 
155634 


032742 
032742 
032742 


035054 


033240 


033152 
057176 
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¢ 10 
27=JUL=78 12:32 PAGE 120 
REGISTER MODIFICATION REFUSED = RHER1(BIT #2) ,RMR 


JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
TYPE ,CPHAL > ;CANNOT CONTINUE TESTING IF NOT 
HALT ;STOP TEST 


JSR RO, @#SEEKCY ;SEEK FOR 
0 CYLINDER 0 


MOV @ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
MOV @ASEECOM,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GET READY TO SE’ GO AND 

MOV (SP) +,@RHCS1 :GO WITH 

WAT ;WAIT FOR DRY BIT TO SET 

RHDS1 ;WAIT FOR RHDS1 REGISTER 

DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
1534. zALLOW 15340 MICRO SECONDS 

834. DRY MUST SET BETWEEN 


;*PREPARE FOR A READ DATA 


z7*FILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ 
JSR RO, @#CLAREA 7CLEAR 150. WORDS, FROM WRFROM 


WRF ROM STARTING FROM WRFROM 

150. 3150. WORDS 
2000 FILL WITH 2000 
JSR RO, @#CLAREA TCLEAR 106. WORDS, FROM WRFROM+<150.*2> 
WRF ROM+<150.*2> STARTING FROM WRFROM+<150.*2> 
106. 3106. WORDS 

77 FILL WITH 77 

:*FILL READ op BUFFER WITH DATA OTHER THAN WHAT IS EXPECTED 
JSR RO, @#CLAREA CLEAR 256. WORDS, FROM REINTO 
oF TSTARTING FROM REINTO 


7256. WORDS 
77 zFILL WITH 77 
:*FILL READ is COMMAND 


JSR RO, a4RU ;SETUP TO RUN FOR DATA COMMAND 

1 CYLINDER 1 

-BYTE 0 ZSECTOR 0 

-BYTE 0 7 TRACK 0 

-150. WORD COUNT = 150. 

RE INTO ;BUS ADDRESS 

0 ;DO NOT INHIBIT BUS gr~ yA <a 
ECI!FMT22 316 BITS PER WORD F 

READAT :GET READY TO DO A READAT 


;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE 
3*INTO A REGISTER WHILE THE READ IS GOING ON 


JSR RO, @ASAVER Joe; REGISTERS 

RHWC HWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 

18. :NUMBER OF REGISTERS 

JSR PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 


TYPE »CPHALT CANNOT CONTINUE TESTING IF NOT 


SEQ 0119 
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024460 000000 HALT zSTOP TEST 
024462 013777 004506 155476 MOV @ARP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


024470 013746 002346 MOV @AREADAT,-(SP) ;GET READY TO MOVE COMMAND 
024474 052716 000101 BIS A#GO!IE, (SP) ;GET READY TO SET GO AND 
024500 012677 155474 MOV (SP) +,@RHCS1 :GO WITH 


024504 013700 004650 MOV a4 TMPO ,RO ;SET UP RO FOR WRITE 

024510 012730 002006 MOV #81T1'!B1T2!B1T10,a(RO)+ ATTEMPT TO WRITE INTO 
SREGISTERS DURING IMPLIED SEEK 

024514 010037 004650 MOV RO, a4TMPO TSAVE OFF RO 


7*NOW RMR IS SET BUT THE COMPLETION OF READ MUST BE 
;*WAITED ON 


024520 zWAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
z;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 11830 MICRO SECONDS 
;RDY MUST SET BETWEEN 


z*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
033762 JSR RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
CHANGE RHCC REGISTER 
:1 BIT/BITS TO BE CHANGED 
NEW VALUE OF BITO IS 1 
;CHANGE BITO BIT 
033762 J RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 
3:1 BIT/BITS TO BE CHANGED 
SNEW VALUE OF SC IS 1 
; CHANGE SC BIT 
032774 RO, @4F ILLRE [MOV 1 INTO SAVED RHDST 
eATAY REGISTER TO CHANGE 


A 
033762 J RO, a@4CHREG : CHANGE BITS IN SAVED REGISTER 
+ CHANGE RHDS1 REGISTER 
2 BIT/BITS TO BE CHAN 
:NEW ae a" ATA IS 1 
CHANGE ATA BIT 
;NEW wale a ERR IS 1 
E HANGE ERR BIT 
004644 004536 @AATTENT, aMSAVERE+24 sSET APPROPIATE ‘ATA’ BITS 
033762 J RO,@A4CHR EG sf HANGE BITS IN SAVED REGISTER 
: CHANGE RHER1 REGISTER 
:1 BIT/BITS TO A. CHANGED 
“NEW VALUE OF RMR IS 1 
RMR s€ GE RMR BIT 
032774 JSR RO, a4F ILLRE >MOV REINTO+<150.*2> INTO SAVED RHBA 
RHBA : SAVED oo TO CHANGE 
RE INTO+<150. *2> 


;DAT 
032774 JSR RO, @4F ILLRE :Mov_0 INTO SAVED RHWC 
RWC SAVED REGISTER TO CHANGE 
024652 000000 0 DATA 
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024654 


024670 
024672 


024710 


024712 


024724 


024726 
024730 


024732 
024736 
024740 
024744 


004037 
0 
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104034 
000207 
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2 
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T27 REGISTER MODIFICATION REFUSED = RHER1(BIT 42) ,RMR 


:*COMPARE REGISTERS BEFORE READ DATA WITH REGISTERS 
> *AF TER m8 AND ATTEMPTED MODIFICATION OF REGISTER 
COMREG COMPARE SAVED REGISTERS WITH 

[GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
[RETURN TO 2$ ON ERROR 
:RETURN TO 3$ ON NO ERROR 


RO,-(SP) ;;PUSH RO ON STACK 
a4 TMPO,RO GET REGISTER BEEING MODIFYED + 2 POINTER 
-(RO) ,@#$BDADR GET ADDRESS OF REGISTER BEING MODIFYED 
60 S ATTEMPTING TO MODIFY REGISTER 
(SP)+,RO :z;POP STACK INTO RO 
PC ;DURING A READ COMMAND CAUSED 
; IMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD 
:BE THERE 
sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER READ 
z*COMPARE DATA READ 


JSR RO, @4#COMPAR ; COMPARE TWO BLOCKS OF MEMORY 
OM ;GOOD DATA STARTS FROM WRFROM 
: TEST DATA STARTS FROM REINTO 
4$, WORDS TO BE COMPARED 
“RETURN TO ST23 ON ERROR 


DATA READ WITH AN ATTEMPTED 
;MODIFICATION OF REGISTER 
;DURING READ CAUSED ERROR 

; COUNT DOWN 

;BRANCH IF 7 NOT DONE 

; JUMP TO NEXT TEST 

; JUMP TO BEGINING OF TEST 








F 10 
CZRJJCO, RPO4/5/6 FCTNL MACY11 30A(1052) 27=JUL=78 12:32 PAGE 123 SEQ 0122 
CZRJJC.P11 26-JUL-78 10: T30 REGISTER MODIFICATION REFUSED = RHER1 (BIT #2),'RMR' 


024750 000004 TST30: 
012706 MOV MSTACK , SP RESET STACK 
012737 000030 004504 #30,04TSTNM ; SAVE TEST NUMBER 
004737 033972 PC ,@#CLDISK SET R1-RHCS1, R2=-RHCS2 


024770 012737 002200 004650 MRHCS1,Q4TMPO = =;FILL REGISTER TO BE MODIFIED 
024776 012737 000007 004656 #7 ,AATMPS NUMBER OF REGISTERS TO BE TESTED 


;*PREPARE TO WRITE HEADER AND DATA 


025004 $ 
025004 033072 JSR PC ,@4CLDISK 3SET R1-RHCS1, R2-RHCS2 


7*FILL WRITE FROM BUFFER WITH HEADER 
025010 032716 J RO, a#F LHEAD ;SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
NUMBER OF WORDS SAVED 
FIRST DATA WORD 
;SECOND DATA WORD 
; THIRD DATA WORD 
;FOURTH DATA WORD 


*FILL WRITE FROM BUFFER WITH DATA 
032742 JSR RO, @4CLAREA CLEAR 256. WORDS, FROM WRFROM+<4*2> 
ggg a STARTING FROM WRFROM+<4*2> 


256. 3256. WORDS 
070707 sFILL WITH 070707 


*FILL WRITE Sp BUFFER WITH NEXT SECTOR HEADER 
032716 JSR RO, @4#F LHEAD SAVE HEADER DATA IN WRFROM+<260.*2> 
uF ROM*< 260. wt ;LOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 
10001 D 


0 : 
0 FOURTH DATA WORD 
7*FILL WRITE FROM BUFFER WITH WITH NEXT SECTOR DATA 


032742 JSR RO,@ACLAREA sCLEAR 4 WORDS, FROM WRFROM+<268. *2> 
WRFROM+<268, *2> STARTING FROM WRFROM+<268. *2> 


000004 o 34 WORDS” 
025072 70707 sFILL WITH 70707 


3 *NOW THE yn be — AND DATA COMMAND WILL BE FILLED 
025074 035054 JSR RO, af ;SETUP TO RUN FOR DATA COMMAND 
1 CYLINDER 1 
-BYTE 0 TSECTOR 0 
BYTE 0 ; TRACK 0 
-264.-4 z;WORD COUNT (DATA) = 264. + 
WRF ROM ;BUS ADDRESS 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
010000 FMT22 316 BITS PER WORD FORMAT 
025114 WRIFOR :GET READY TO DO A WRIFOR 


025116 004737 033152 JSR PC ,@ACHECKT CHECKS DVA,RDY.MOL,DPR,DRY AND VV = 1 
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025122 104401 057176 TYPE ,CPHALT ; CANNOT CONTINUE TESTING IF NOT 
025126 000000 HALT STOP TEST 


013777 004506 155030 MOV @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002344 MOV @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
025146 012677 155026 MOV (SP)+,@RHCS1 :GO WITH 


REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 
025152 104413 ;WAIT FOR RDY BIT TO SET 
002200 [WAIT FOR RHCS1 REGISTER 
000200 sWAIT FOR RDY BIT IN RHCS1 REGISTER 
001725 ° [ALLOW 9810 MICRO SECONDS 
001502 . :RDY MUST SET BETWEEN 


;*NOW PREPARE FOR THE WRITE DATA COMMAND 

7*FILL WRITE FROM BUFFER WITH 256 OF 2000 AND 4 OF 2001 
032742 RO, @4CLAREA sCLEAR 256. WORDS, FROM WRFROM 

OM ; STARTING FROM WRFROM 
3256. WORDS 
00 sFILL WITH 2000 

032742 RO, @4CLAREA ZCLEAR 4 WORDS, FROM WRFROM+<256.*2> 

WRF ROM+<256. *2> oo FROM WRFROM+<256. *2> 


4 74 WOR 
2001 sFILL WITH 2001 


:*FILL WRITE DATA COMMAND 
035054 JSR RO, @#RUN 7SETUP TO RUN FOR DATA COMMAND 
CYLINDER 1 
CTOR 0 


7 TRACK 0 
[WORD COUNT = 256. 
[BUS ADDRESS 
7D0 NOT INHIBIT BUS ADDRESS INCREMENT 
716 BITS PER WORD FORMAT 
025230 ’ [GET READY TO DO A WRIDAT 


:*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED 
z*REGISTER MODIFICATION DURING A WRITE DATA 
025232 033240 JSR RO, @#SAVER : SAVE REGISTERS 
;RHWC IS THE FIRST ae SAVED 
;STARTING ADDRES OF WHERE 
025242 0000. 18. [NUMBER OF REGISTERS 


025244 033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
025250 057176 -CPHALT CANNOT CONTINUE TESTING IF NOT 
025254 000000 STOP TEST 


025256 013777 004506 154702 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 
013746 002342 @AWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 


052716 000101 #GO!IE, (SP) :GET READY TO SET GO AND 
025274 012677 154700 (SP)+,@RHCS1 GO WITH 
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025300 
025304 


025310 


025314 


025324 


025326 
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013700 
012730 


010037 
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004650 
002002 


004650 


033762 


033762 


033762 


004644 
033762 


032774 
032774 


032774 


034070 
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REGISTER MODIFICATION REFUSED = RHER1 (BIT #2),°RMR' 


MOV a4 TMPO ,RO :SET RO TO REG ADDRESS 

MOV #B1T1!B1T10,a(RO)+ SATTEMPT TO WRITE INTO A REGISTER 
;DURING WRITE DATA 

MOV RO,a#TMPO TSAVE OFF NEW REG ADDRESS 


:*NOW RMR MUST BE SET BUT THE COMPLETION OF 
*WRITE DATA MUST BE WAITED ON 


:WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9810 MICRO SECONDS 

;RDY MUST SET BETWEEN 


*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
CHANGE RHCC REGISTER 
3:1 BIT/BITS TO BE CHANGED 
ZNEW VALUE OF BITO IS 1 
CHANGE BITO BIT 
RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 
3:1 BIT/BITS TO BE CHANGED 
[NEW VALUE OF SC IS 1 
; CHANGE SC BIT 
RO, @4CHREG [CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 
:2 BIT/BITS TO BE CHANGED 
iNEW ge A OF ATA IS 1 
CHANGE ATA BIT 
:NEW VALUE OF ERR IS 1 
CHANGE ERR BIT 
@AFATTENT, aw SAVERE +24 SET APPROPIATE ‘ATA* BITS 
RO, @CHREG :CHANGE BITS IN SAVED REGISTER 
CHANGE RHER1 REGISTER 
:1 BIT/BITS TO BE CHANGED 
NEW VALUE OF RMR IS 1 
; CHANGE RMR BIT 
RO, @4F ILLRE [MOV 1 INTO SAVED RHDST 
— REGISTER TO CHANGE 
RO, @4F ILLRE MOV WRFROM+<256.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
WRF ROM+<256, *2> DATA 


JSR RO, @4F ILLRE :MOV 0 INTO SAVED RHWC 
apo a REGISTER TO CHANGE 


z*COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
7*AFTER WRITE AND ATTEMPTED MODIFICATION OF REGISTER 
RO, a#COMREG ; COMPARE SAVED REGISTERS WITH 
:GOOD DATA SAVED IN ‘SAVERE* 
ZTEST DATA STARTING FROM 'RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 2$ ON ERROR 
;RETURN TO 3$ ON NO ERROR 








c 
Ci 
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025506 


025512 


025556 


025560 
025564 
025566 
025570 


025572 
025576 
025602 
025604 


025612 


025630 


013777 


013746 
052716 
012677 
011100 
011305 


004850 
001722 


033072 


032742 


032742 


035054 


033240 


033152 
057176 


004506 
002346 


000101 
154352 


154354 


2$: 
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REGISTER MODIFICATION REFUSED = RHER1 (BIT 42),‘RMR‘ 


RO,-(SP) 3: zPUSH RO ON STACK 
as TMPO,RO :GET REGISTER BEEING MODIFYED + 2 POINTER 
-(RO), ,@#$BDADR ;GET ADDRESS OF REGISTER BEING MODIFYED 
60 [ATTEMPTING TO MODIFY REGISTER 
(SP)+,RO : ;POP STACK INTO RO 
PC :DURING A WRITE COMMAND CAUSED 
: IMPROPER REGISTER GIVES WHAT SHOULD 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER READ 
:*CLEAR ALL ERROR FLAGS 


JSR PC ,a4CLDISK SET R1-RHCS1, R2=-RHCS2 


z*FILL WRITE FROM BUFFER WITH EXPECTED DATA 
RO, @#CLAREA CLEAR 256. WORDS, FROM WRFROM 
STARTING FROM WRF ROM 
7256. WORDS 
FILL WITH 2000 
JS RO,@4CLAREA CLEAR 4 WORDS, FROM WRFROM+<256.*2> 
 eehton tage STARTING FROM WRFROM+<256. *2> 


:4 WORDS” 
2001 FILL WITH 2001 


z*NOW THE READ ays COMMAND WILL BE FILLED 
RO, @ARU ;SETUP TO a. FOR DATA COMMAND 
CYLINDER 1 
= SECTOR 0 
; TRACK 0 
;WORD COUNT = 260. 
[BUS ADDRESS 
0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 716 BITS PER WORD FORMAT 
READAT ;GET READY TO DO A READAT 


z*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
RO, @#SAVER SAVE REGISTERS 
;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
NUMBER OF REGISTERS 


PC ,@A#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
, CPHALT :CANNOT CONTINUE TESTING IF NOT 


@ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


@AREADAT,-(SP) ;GET READY TO MOVE COMMAND 
#GO!IE, (SP) GET READY TO SET GO AND 
(SP)+,@RHCS1 :GO WITH 

aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 [SAVE RHDS1 DURING ABOVE OPERATION 








Ci 
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025632 ;WAIT FOR RDY BIT TO SET 
002200 WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9810 MICRO SECONDS 
;RDY MUST SET BETWEEN 
@GAREADAT,-(SP) ;SAVE COMMAND 
MIE!DVA!GO,(SP) ; INCLUDE IE!DVA!GO 
(SP) ,@#SGDDAT  ;SAVE FOR PRINTOUT 
(SP)+,RO DURING ABOVE OPERATION ONLY IE!DVA!GO 
70$ ;BRANCH IF GOOD 
RO, @#$BDDAT ;BAD DATA 
R1,@4#REGADR FAILING REGISTER RHCS1 
21 [DURING ABOVE OPERATION ONLY 
010500 : #MOL ! DPR! VV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP) ,a#$GDDAT ; SAVE FOR PRINTOUT 
(SP)+,R5 7DURING ABOVE OPERATION ONLY MOL !DPR! VV 
72$ ;BRANCH IF GOOD 
001126 R5,@#$BDDAT BAD DATA 
004500 R3,@#REGADR FAILING REGISTER RHDS1 
025722 63 ;DURING ABOVE OPERATION ONLY 


z*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
025724 032774 JSR RO, @4F ILLRE sMOV 0 INTO SAVED RHwWC 
025730 RHWC ;SAVED REGISTER TO CHANGE 
025732 000000 0 DATA 


032774 JSR RO, @4F ILLRE z:MOV REINTO+<260.*2> INTO SAVED RHBA 
RHBA ; SAVED REGISTER TO CHANGE 
RE INTO+<260. *2> ATA 


:DA 
032774 JSR RO, @4F ILLRE :MOV 2 INTO SAVED RHDST 
RHDST ;SAVED REGISTER TO CHANGE 
025752 000002 2 DATA 


z*NOW COMPARE REGISTERS BEFORE READ DATA WITH 
;*AFTER COMMAND 
025754 034070 RO, a4#COMREG = COMPARE SAVED REGISTERS WITH 


718. REGISTERS TO BE COMPARED 
[RETURN TO 4$ ON ERROR 
025770 025776 :RETURN TO 5$ ON NO ERROR 


025772 104033 ; aa CAUSED IMPROPER REGISTER 


025774 900207 : PC ; CHAN 
= GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
poe pi INTO BUFFER Witt BE CHECKED TO SEE THAT READ 
-* 


004037 035120 RO, a4#COMPAR COMPARE TWO BLOCKS OF MEMORY 
002370 WRF ROM :GOOD DATA STARTS FROM WRFROM 
tebe : TEST DATA STARTS FROM REINTO 


026014 ; ON ERROR 
026020 ;RETURN TO ST28 ON NO ERROR 


025776 
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026014 
026016 


026020 
026024 
026026 
026032 


104034 
000207 


005337 
001002 
000137 
000137 


004656 


026036 
025004 
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REGISTER MODIFICATION REFUSED = RHER1 (BIT #2),*°RMR' 


ERROR 34 ;READ DATA ERROR AFTER A WRITE DATA 
RTS PC WITH REGISTER MODIFICATION 
WITHIN THE WRITE DATA 

:*IF ALL 7 REGISTERS NOT COMPLETE THEN REPEAT 
BEC aA TMPS COUNT DOWN 
BNE 1$ ;BRANCH IF 7 NOT ee 
JMP TST31 ; JUMP TO NEXT TEST 
JMP ST24 ; JUMP TO BEGINING OF TEST 


SEQ 0127 





CZ 
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026122 
026124 


026146 
026150 


026156 


026174 
026176 


026222 
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000004 
012706 
012737 
004737 


004037 
002370 
000400 


004037 
003434 


000400 
177777 
004037 
000000 

000 


000 
177400 
003434 


000000 
014000 
002346 


004037 
002172 
004512 
000022 
004737 
104401 
000000 
013777 


013746 


011305 
012777 


052716 


mae 


033072 


032742 
032742 


035054 


033240 
033152 
057176 
004506 


002346 
000101 
154006 


177777 


002346 
004101 
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154012 
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SCOPE 


MOV 
MOV 
JSR 


STACK, SP 
#31 ,QATSTNM 
PC ,a@#CLDISK 


sRESET STACK 
SAVE TEST NUMBER 
SET R1-RHCS1, R2=-RHCS2 


*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


RO, @A4CLAREA 


0 
— READ a diese 
JSR 


REINTO 
256. 


RO,a4# 


CLEAR 256. WORDS, FROM WRFROM 
a wes WRF ROM 


WOR 
SFILL WITH 0 
WITH ALL ONES 
CLEAR 256. WORDS, FROM REINTO 
z STARTING FROM REINTO 


6. WOR 
SFILL WITH =1 


<3 
ee THE READ DATA COMMAND WILL BE FILLED 


RO, @4#RUN 


0 
ECI!FMT22 


READAT 


;SETUP TO RUN FOR DATA COMMAND 
tie 0 


;DO0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER ye FORMAT 
READY TO DO A 


:GET READAT 
:*NOW SAVE pete pe. FOR COMPARISON AFTER READ DATA COMMAND 


RO,a 


PC ,@#CHECKT 
HAL T 


o 


@ARP4SVEC ,ARPVEC 


@AREADAT , - (SP) 
#GO!IE, (SP) 
(SP)+,@RHCS1 
aR1,RO 

@R3,R5 
#-1 , @RHAS 


;*TIME IS NOT IMPORTANT 
WAT 


BIS 


@AREADAT , ~ (SP) 
#IE!DVA!GO, (SP) 


SAVE REGISTERS 

:RHWC IS THE FIRST REGISTER SAVED 
[STARTING ADDRES OF WHERE 

NUMBER OF REGISTERS 


CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 
CANNOT CONTINUE TESTING IF NOT 
STOP TEST 


3SET RPO4 VECTOR ADDRESS 


;GET READY TO MOVE COMMAND 

:GET READY TO SET GO AND 

3GO WITH 

SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


;WRITE INTO RHAS THIS SHOULD 
NOT SET RMR 


;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR RDY BIT IN RHCS1 REGISTER 
SALLOW 17500 MICRO SECONDS 

;RDY MUST SET BETWEEN 


7SAVE COMMAND 
INCLUDE IE!DVA!GO 


; 


SEQ 0128 
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026226 011637 001124 (SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 
(SP)+,RO ;DURING ABOVE OPERATION ONLY IE!DVA!GO 
64$ BRANCH IF GOOD 
001126 RO, a#$BDDAT BAD DATA 
004500 R1,@4#REGADR FAILING REGISTER RHCS1 
21 ;DURING ABOVE OPERATION ONLY 
010500 : #MOL ! DPR! VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
001124 (SP) ,a#$GDDAT ;SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPR! VV 
66$ ;BRANCH IF GOOD 
001126 R5 ,@A#SBDDAT ;BAD DATA 
004500 MOV R3,@4REGADR FAILING REGISTER RHDS1 
026274 104063 63 ;DURING ABOVE OPERATION ONLY 


z*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
026276 032774 JSR RO, @4F ILLRE zsMOV O INTO SAVED RHWC 
RHWC aay REGISTER TO CHANGE 


0 DATA 

032774 JSR RO, @4F ILLRE sMOV REINTO+<256.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
RE INTO+<256. *2> 


;DATA 
032774 JSR RO, @4F ILLRE :MOV 1 INTO SAVED RHDST 
RHDST a REGISTER TO CHANGE 


1 2D 
032774 JSR RO, @4F ILLRE :MOV 0 INTO SAVED RHCC 
RHCC = REGISTER TO CHANGE 


z*NOW COMPARE REGISTERS BEFORE READ DATA WITH 
7 *AFTER COMMAND 
034070 RO, @#COMREG COMPARE SAVED REGISTERS WITH 
[GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
18. REGISTERS TO BE COMPARED 
ETURN TO 1$ ON ERROR 
026352 026360 RETURN TO 2$ ON NO ERROR 


026354 : ERROR 33 ;READ DATA CAUSED IMPROPER REGISTER 


026356 RTS PC 3 CHANGE 
+ GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
aan aon INTO BUFFER Witt BE CHECKED TO SEE THAT READ 
'* 


004037 035120 RO, a@#COMPAR COMPARE TWO BLOCKS OF MEMORY 
002370 WRF ROM ;GOOD DATA STARTS FROM WRFROM 
003434 s TEST DATA STARTS FROM REINTO 
000400 TO B 
026376 ; 
026374 026402 :RETURN TO 4$ ON NO ERROR 


026376 104034 : ERROR 34 READ DATA ERROR AFTER WRITING INTO 
026400 000207 RTS PC ;RHAS DURING READ 


026402 





N 10 
CZRJJCO, RPO4/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 131 SEQ 0130 
CZRJJC.P11 26-JUL=78 10:07 131 REGISTER MODIFICATION REFUSED = RHER1 (BIT #2)RMR 


aa 
NN 


TST32: 
001000 MO AMSTACK , SP RESET STACK 
000932 004504 #32 ,Q4TSTNM SAVE TEST NUMBER 
033072 PC ,@#CLDISK SET R1-RHCS1, R2=-RHCS2 


004640 a4RH70 3RH70 CONTROLLER ? 
30$ SKIP NEXT IF NOT = 1 
027230 TST33 IF SO SKIP THIS TEST 


;*GENERATE ILLEGAL FUNCTION 


a4S$TMP1 GET READY TO MAKE ILLEGAL FUNCTION 
#FUTABL .RO 3GET POINTER TO BEGINNING OF COMMANDS 
#17. ,R5 COUNTER (17 GOOD FUNCTIONS) 
@ASTMP1,(RO)+  ;I1S THIS A LEGAL FUNCTION 
$ [BRANCH IF NOT LEGAL 

001200 #2, a4STMP1 s;MAKE ANOTHER FUNCTION 
1$ ;GET READY TO TEST NEW FUNCTION 
RS SNOT LEGAL SO a COUNTER 

BN 2$ ;BRANCH IF 17 NOT 

001200 #100, a4$TMP1 z;ALL BITS UP TO BIT ns COMPARED ? 
20$ BRANCH OUT IF DONE 
19$ ;BRANCH TO CONTINUE 

027230 


: a4#7$ ONE 
001200 002364 : onl @#ILLEGL ;AN ILLEGAL FUNCTION IS FOUND 
026516 000002 001200 #2, Q4STMP1 GET READY FOR NEW FUNCTION NEXT TIME 


SS a a ee ee ee ee ee ee eS ee ee ae ee lel lhe lh e,LlUCUhreUClerlUChlLerlCU ee Oe 


er is im ‘nite HAS BEEN FOUND 
026524 012737 026532 001110 MOV #4$ , AASLPERR ERROR RETURN POINT 


z*SAVE REGISTERS FOR COMPARISON AFTER GO 


004737 033072 PC ,a@ACLDISK 3SET R1-RHCS1, R2-RHCS2 

005077 @RHWC ;CLEAR WORD COUNT 

005077 @RHBA ;CLEAR BUS ADDRESS 

026546 023727 002364 000050 @#ILLEGL ,#50 350 AND HIGHER FUNCTIONS ARE DATA 
[FUNCTIONS WHICH WILL SET MXF AND TRE 

026554 103014 13$ BRANCH IF ILLEGL IS HIGHER THAN 50 

026556 012737 100000 027132 ASC ,a411$+12 EXPECTED VALUE OF RHCS1 SHOULD HAVE 


SONLY SC ADDED 
026564 905037 027154 a412$+12 ae Phan: OF RHCS2 SHOULD HAVE 
026570 027160 a412$+16 NO BITS TO BE CLEARED IN RHCS2 
a415$+6 ;RHBA SHOULD BE 0 
a416$+6 ;CLEAR SAVED RHWC 


14$ S BRANCH 
002364 : + -@4ILLEGL 31S FUNCTION 64 


BRANCH IF NOT 
027132 #SC! TRE ,a#11$+12: SAVED RHCS1 SHOULD HAVE SC AND TRE 
#204 ,a#15$+6 :R SHOULD HAVE 204 
#102, a4 on lesee SRHWC SHOULD HAVE 102 
#MXF 'OR,a#12$+12:RHCS2 SHOULD HAVE MXF AND OR 
012737 000100 027160 AHIR, @412$+16 SRHCS2 SHOULD HAVE IR CLEARED 


026532 
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BR 14$ ;BRANCH 

002364 17$: #66,04:LLEGL 71S tye 66 
18$ :BRAN CH IF NOT 

153276 #-70. ,@RHWC ; MOVE 7 INTO RHWC 
AWRFROM,@RHBA FILL RHBA WITH WRFROM 
ASC!TRE, 34118412: SAVED RHCS1 
#WREROM-<66. *2>, 138+6 6; RHBA 
#-4. ,16$+6 SAVED RHWC 

027154 #MXF ‘OR, a#12$+12° ;SAVED RHCS2 
al 2$+16 :RHCS2 

027160 “+ 7 aati ;RHCS2 | SHOULD HAVE IR CLEARED 


[BRANCH 
153220 ; @RHWC CLEAR RHWC 


153216 @RHBA CLEAR RHBA 

140000 027132 #SC!TRE ,a#11$+12: ‘RECS SHOULD HAVE SC AND TRE 
027170 a415$+6 ;RHBA 

027200 a416$+6 ;RHW 

001000 027154 AMXF ,a#12$+12 ‘RHCS2 

027160 a412$+16 zRHCS2 


033240 RO, @4SAVER i REGISTERS 
HWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 
027016 2 18. :NUMBER OF REGISTERS 


027020 033152 PC ,@#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ~CPHALT > CANNOT CONTINUE TESTING IF NOT 
[STOP TEST 
002364 @AILLEGL,-(SP) ;GET ILLEGAL FUNCTION 
000101 AGO!IE, (SP) : INCLUDE IE AND GO 
(SP)+,@R1 :GO TO RHCS1 WITH ILLEGAL FUNCTION 
[WAIT FOR RDY BIT TO SET 
[WAIT FOR RHCS1 REGISTER 
[WAIT FOR RDY BIT IN RHCS1 REGISTER 
. ALLOW 9080 MICRO SECONDS 
027054 . ;RDY MUST SET BETWEEN 


z*CHANGE SAVED REGISTERS TO EXPECTED VALUE 

027056 004037 033762 JSR RO, @4CHREG ; CHANGE BITS IN SAVED REGISTER 
RHER1 CHANGE RHER1 REGISTER 
1 :1 BIT/BITS TO BE CHANGED 
1 NEW VALUE OF ILF IS 1 
ILF ;CHANGE ILF BIT 

033762 JSR RO, @ACHREG :CHANGE BITS IN SAVED REGISTER 

RHDS1 :CHANGE RHDS1 REGISTER 
2 :2 BIT/BITS TO BE Oe wee 
1 ;NEW nae "s ATA IS 1 
ATA CHANGE ATA BIT 
leas :NEW VALUE OF ERR IS 1 


CHANGE ERR BIT 
027112 053737 004644 004536 BIS @WATTENT,a#SAVERE+24 ;SET APPROPIATE ‘ATA' BITS 
027120 :*RHCS1 WILL HAVE SC AND TRE ADDED IF FUNCTION IS GREATER THAN 50 


027120 004037 033762 JSR RO, @A#CHREG CHANGE BITS IN SAVED REGISTER 
027124 002200 RHCS1 CHANGE RHCS1 REGISTER 





, 11 
CZRJJCO, RPO4/5/6 FCTNL cm MACY11 30A(1052) 27=JUL-78 12: 35 PAGE 133 SEQ 0132 
CZRJJC.P11 26-JUL-78 10:07 T32 ILLEGAL FUNCTION RHER1 = (BIT #0,ILF) 


027126 1 31 BIT/BITS TO BE CHANGED 
1 ;NEW VALUE OF SC IS 1 


Sc ;CHANGE SC BIT 
002364 004520 BIS @FILLEGL, -@MSAVERE +6; ae ILLEGAL FUNCTION 
z*RHCS2 WILL HAVE NOTHING ADDED IF FUNCTION IS LESS THAN 50 


033762 JSR RO, @#CHREG CHANGE BITS _IN SAVED REGISTER 
RHCS2 CHANGE RHCS2 REGISTER 
2 :2 BIT/BITS TO BE i gees 
1 ;NEW VALUE OF MXF IS 1 
MXF ; CHANGE MXF BIT 
0 ;NEW VALUE OF IR IS 0 
IR ; CHANGE IR BIT 


032774 ; JSR RO, a4F ILLRE :MOV 0 INTO SAVED RHBA 
RHBA : SAVED REGISTER TO CHANGE 


032774 : JSR RO, @4F ILLRE sMOV 0 INTO SAVED RHWC 
— — REGISTER TO CHANGE 


z*NOW COMPARE REGISTERS AFTER GIVING AN ILLEGAL COMMAND 
004037 034070 RO, @#COMREG ;COMPARE SAVED REGISTERS WITH 
004512 :GOOD DATA SAVED IN ‘SAVERE’ 
002254 W TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 


027220 : “RETURN TO 5$ ON ERROR 
027216 027224 ‘RETURN TO 6$ ON NO ERROR 


027220 104051 : ERROR 51 ;GIVING ILLEGAL FUNCTION CAUSED 
027222 000207 RTS PC IMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
RECEIVED DATA GIVES REGISTER 
CONTENTS AFTER ILLEGAL 
FUNCTION WA GIVEN 
thea 000137 026440 ¢ BRANCH FOR NEXT FUNCTION 


027230 
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027230 000004 TST33: 

027232 012706 001000 MO STACK , SP RESET STACK 

027236 012737 000033 004504 #33, QA4TSTNM ;SAVE TEST NUMBER 
027244 004737 033072 PC ,@4CLDISK 3SET R1-RHCS1, R2-RHCS2 


7 * THESE — he SETUPS 
027250 012777 177374 152714 MOV #-260., 3256 DATA WORDS 4 HEADER WORDS 
002370 MOV #WRFROM, oRO ; THESE TWO INSTRUCTIONS GETS 
152706 MOV RO, @RHBA ZADDR. OF WRFROM BUFFER INTO RO AND 
;BUS ADDRESS REGISTER 
012710 010000 AFMT22,(RO); en ae WORDS 
027272 012720 000001 #1,(RO)+ 7 TRACK=0, SECTOR=1, KEYS=0 
027276 (RQ) + sKEY! 0 
027300 (RO) + 
027302 012705 000400 #256. ,R5 > COUNTER 


DATA, WRITE HEADER & DATA, AND FORMAT OF THE WRITE 
012720 177777 : MOV — (RO) + sMOVE ALL ONES FOR DATA 


1$ ;BRANCH IF DATA NOT COMPLETE 
000001 152660 #1,ARHDST ; TRACK=0 SECTOR=1 
033152 PC ,@A#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ,CPHALT CANNOT CONTINUE TESTING IF NOT 
000000 STOP TEST 
013711 002344 @GAWRIFOR,AR1 ;GET READY FOR WRITE HEADER AND 
DATA WITH 62 IN RHCS1 
027342 005037 004632 aFERFLGS ;CLEAR ERROR FLAG 
027346 012777 010000 152634 atl @RHOF FORMAT BIT=1 (16 BIT WORDS) 
027354 005077 152632 @RHC CYLINDER =0 


*SAVE REGISTERS FOR COMPARISON AFTER READ 
004037 033240 JSR RO, @#SAVER SAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE [STARTING ADDRES OF WHERE 
027370 1%, NUMBER OF REGISTERS 
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:*GO TO WRITE HEADER AND DATA 

;*BUT BEFORE GO, ONE INDEX PULSE IS GIVEN 

:*TO CLEAR OUT THE SECTOR CLOCK COUNTER IN THE RH11 
3*SO THAT NO SECTOR PULSES COME DURING THIS TEST 


027372 013700 zNOW RO HAS MAINTENANCE REG. ADDR. 
012710 SET DIAGNOSTIC MODE 
052710 . SET INDEX 
042710 AMINX ,@RO CLEAR INDEX THIS GIVES 
ONE INDEX PULSE 


027412 052777 000001 152560 #GO,@RHCS1 ; ISSUE THE ‘GO’ BIT TO THE RH11 
027420 012737 000113 004642 RUNWAT: #75.,@MRUNCTR ;LOAD "RUN LINE DELAY COUNTER 
z= APPROX 450 US ON 11/50 CPU WITH CORE 
AND PROVIDES FOR TIME TO FILL THE SILO 
027426 005337 004642 1$: @ARUNCTR ;COUNT DOWN ONCE 
027432 001375 1$ CONTINUE UNTIL = 0 


: THE FIRST DIAGNOSTIC INDEX PULSE 
027434 052710 000004 I MINX ,@RO sSET INDEX PULSE 
027440 042710 000004 AMINX, ARO ;RESET INDEX 


;*SECOND INDEX PULSE 
027444 052710 000004 BIS AMINX , ARO SET INDEX 
027450 042710 000004 BIC AMINX, RO ;CLEAR INDEX 


;* THIRD INDEX PULSE 
027454 052710 000004 BIS AMINX , aRO SET INDEX 
027460 042710 000004 BIC AMINX ARO CLEAR INDEX 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
004037 033762 JSR RO, @4#CHREG 7; CHANGE BITS IN SAVED REGISTER 
2200 CS1 CHANGE RHCS1 REGISTER 
:2 BI~/BITS TO BE CHANGED 
s;NEW VALUE OF SC IS 1 
CHANGE SC BIT 
:NEW VALUE OF TRE IS 1 
; CHANGE TRE BIT 
033762 RO, @A4CHREG ; CHANGE BITS IN SAVED REGISTER 
S CHANGE RHDS1 REGISTER 
:2 BIT/BITS TO BE CHANGED 
7 NEW _s ‘. ATA IS 1 
7; CHANGE ATA BIT 
> NEW VALUE OF ERR IS 1 
[CHANGE ERR BIT 
032774 RO,@4F ILLRE zMOV 2 INTO SAVED RHDST 
ions REGISTER TO CHANGE 


033762 JS RO, @4CHREG CHANGE BITS IN SAVED REGISTER 
[CHANGE RHER1 REGISTER 
:1 BIT/BITS TO BE CHANGED 
NEW VALUE OF OPI IS 1 


0 ; CHANGE OPI BIT 
027550 053737 004644 004536 @AATTENT ,@#SAVERE+24 ;SET APPROPIATE ‘ATA’ BITS 
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6211 


RRUORVRAK 
CONAUIS WI 


PEGVGVGVS 
ee °) 


027556 033762 RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
0 RHMR CHANGE RHMR REGISTER 
3:1 BIT/BITS TO BE CHANGED 
1 NEW VALUE OF DMD IS 1 
027570 ; CHANGE DMD BIT 


ees RHBA AND OR AND . BITS 4 RHCS2 WILL NOT BE CHECKED 
027572 2 004512 C 


004514 


; CS2 
#°C<IR'OR>, (SP) :GET "IR' & ‘OR’ STATES 
004516 #IR'OR ,@MSAVERE+4; CLEAR 'IR' & ‘OR’ BITS 
(SP) +, @#SAVERE+4;SET 'OR' & ‘IR AS REQUIRED 


; * COMPARE pont. BEFORE WRITE WITH RESULTS AFTER WRITE 
034070 RO, @4#COMREG ;COMPARE SAVED REGISTERS WITH 
:GOOD DATA SAVED IN ‘SAVERE’ 
ZTEST DATA STARTING FROM 'RHwC" 
317. REGISTERS TO BE COMPARED 
RETURN TO 2$ ON ERROR 
027652 RETURN TO 3$ ON NO ERROR 


104071 : FORCING OPI CAUSED 
027650 000207 ; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
sAFTER 3 INDEX PULSES WERE ISSUED 


027652 004737 033072 3$: PC ,aACLDISK ;CLEAR THE ‘GO* BIT 
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027656 000004 TST34: SCOPE 
001000 MOV @STACK , SP RESET STACK 
000934 004504 SAVE TEST NUMBER 
033072 7SET R1-RHCS1, R2-RHCS2 
000025 027732 oe 7SET UP TO START FROM 
000025 027746 SECTOR 21. 
027712 000056 004652 #66. aa TMPT 746 SECTORS TO COVER 3 TRACKS 


:*FILL WRITE FROM BUFFER WITH THE HEADER 


032716 JSR RO, @4F LHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 
4 [NUMBER OF WORDS SAVED 
10000 FIRST DATA WORD 
21. ;SECOND DATA WORD 
0 [THIRD DATA WORD 

0 FOURTH DATA WORD 


z*NOW THE WRITE HEADER AND DATA COMMAND WILL BE SETUP 


027720 


004037 035054 RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
000000 0 CYLINDER 0 

025 . e1, SECTOR 21. 

000 0 ; TRACK 0 
177774 ;WORD COUNT (DATA) = 0 + 
002370 ;BUS ADDRESS 
000000 0 


;DO NOT INHIBIT BUS ADDRESS INCREMENT 
010000 i 316 BITS PER WORD FORMAT 
027760 002344 :GET READY TO DO A WRIFOR 


027762 004737 033152 ] PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
027766 104401 057176 ~CPHALT CANNOT CONTINUE TESTING IF NOT 
027772 000000 STOP TEST 


027774 013777 004506 152164 @ARP4VEC,,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002344 @AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
000101 AMGO!IE, (SP) 7GET READY TO SET GO AND 
152162 (SP)+,@RHCS1 :GO WITH 
aR1 ,RO SAVE RHCS1 DURING ABOVE OPERATION 
aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


7 pe REVOLUT ION=16670 MICRO tt ONE SECTOR=760 MICRO SEC 
WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
[WAIT FOR _RDY BIT IN RHCS1 REGISTER 
030030 . ALLOW 16950 MICRO SECONDS 
030032 001515 : RDY MUST SET BETWEEN 


: *NOW ONE MORE SECTOR HAS BEEN WRITTEN 
7*"SC* WILL BE CHECKED TO MAKE SURE 
S*NO ERRORS OCCURED 


017737 152140 002262 MOV @RHCS1 ,a#CS1 GET RHCS1 
032737 100000 002262 BIT #SC,aACS1 Ig *St* SET Ft 
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030126 


030132 
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030140 


105237 


005337 
001270 


035014 


033072 
027732 


000026 
027732 
027746 
027732 


027747 
004652 
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ERROR 


3$ 
PC, @#PUTREG 
72 


ZBRANCH IF “SPECIAL CONDITION'’ NOT SET 
4 &@ SAVE ALL RH11 & RPOS REGISTERS 
THERE WAS AN UNDEFINED ERROR AFTER 


tA WRITE HEADER AND DATA 


7*A SECTOR HAS BEEN FORMATTED NOW, 
;*THE HARDWARE WILL BE CLEARED AND 
7 *CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 


PC ,@ACLDISK 
a4#1$+12,R5 
R5 

#22.,R5 

4$ 


R5,a41$+12 
R5,a42$+6 
5$ 


af1$+12 
a41$+13 
a 2$+6 
a 2$+7 


aA TMP) 
1$ 


> SET R1=RHCS1, R2=-RHCS2 
7GET SECTOR TRACK WORD 


“IS IT 22 SECTORS (WHOLE TRACK DONE) ? 


7YES...DO NEXT TRACK 

ZNO. . RESTORE SECTOR TRACK FOR DATA 
RESTORE SECTOR TRACK FOR ‘RUN’ ROUTINE 
CHECK FOR 46 SECTORS COMPLETED 


:SET SECTOR = 0 FOR DATA WRITTEN 
;INCR TRACK FOR DATA WRITTEN 

;SET SECTOR = 0 FOR ‘RUN’ ROUTINE 
;INCR TRACK FOR THE *RUN’* ROUTINE 


ARE 46 SECTORS DONE ? 
CONTINUE FORMATTING IF NOT 


:GO ON TO NEXT TEST IF SO 











C2 
C2 
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030140 
MO AMSTACK, SP RESET STACK 
004504 e SAVE TEST NUMBER 
SET R1-RHCS1, R2=RHCS2 
030214 . 4: t UP TO START FROM 
030230 . CTOR 21. 
012737 004652 446. , a4 TMP1 4 SECTORS TO COVER 3 TRACKS 


:*FILL WRITE FROM BUFFER WITH HEADER 


004037 032716 JSR RO, a#F LHEAD ;SAVE HEADER DATA IN WRFROM 
002370 wRF ROM ; LOCATION WHERE SAVED 


4 
010000 10000 
000025 21. 


: THIRD DATA WORD 
0 [FOURTH DATA WORD 


3*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
035054 RO, @#RUN 2 SETUP TO RUN FOR DATA COMMAND 
0 NDER 0 


21. 
0 ; TRACK 0 

[WORD COUNT (DATA) = 0 + 

[BUS ADDRESS 

:DO NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

030242 [GET READY TO DO A WRIFOR 


030244 033152 PC ,a@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
030250 057176 ~CPHALT CANNOT CONTINUE TESTING IF NOT 
030254 000000 :STOP TEST 


030256 013777 004506 151702 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002344 @AWRIFOR,-(SP) ;GET READY TC MOVE COMMAND 

052716 000101 A#GO!IE, (SP) ;GET READY TO SET GO AND 

012677 151700 (SP)+,@RHCS1 :GO WITH 

011100 @R1 ,RO SAVE RHCS1 DURING ABOVE OPERATION 
011305 @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


:*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR= at MICRO SEC 
104413 WAT WAIT FOR RDY BIT TO S 
[WAIT FOR RHCS1 REGISTER 
[WAIT FOR RDY BIT IN RHCS1 REGioTER 
. ZALLOW 16950 MICRO SECONDS 
030314 001515 . zRDY MUST SET BETWEEN 


>*NOW ONE MORE SECTOR HAS BEEN WRITTEN 
7*"SC* WILL BE CHECKED TO MAKE SURE 
;*NO ERRORS OCCURED 


030316 017737 151656 002262 MOV @RHCS1,a#CS1 GET RHCSi 
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030324 032737 100000 002262 #SC ,aAC(S1 sIS “SC* SET ? 
030332 3$ ZBRANCH IF ‘'SPECIAL CONDITION’ NOT SET 
030334 737 035014 JS PC ,a#PUTREG sREAD & SAVE ALL RH11 & RPO4 REGISTERS 
030340 72 THERE WAS AN UNDEFINED ERROR AFTER 

ZA WRITE HEADER AND DATA 


030342 030576 TST36 THIS IS A SETUP ERROR AND ‘OPI* TEST CAN'T CONTI 
"60 ON TO NEXT TEST 


:*ONE SECTOR HAS BEEN FORMATTED NOW, 
3*THE HARDWARE WILL BE CLEARED AND 
;*CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 


033072 PC .@#CLDISK SET R1-RHCS1, R2=-RHCS2 
030214 aca a ae | SECTOR TRACK WORD 
000026 #22. ,R5 zIS IT 22 (WHOLE TRACK) ? 
4$ TYES...DO NEXT TRACK 
030214 R5,a41$+12 INO...RESTORE SECTOR TRACK FOR DATA WRITTEN 
030230 R5,@42$+6 [RESTORE SECTOR TRACK FOR ‘RUN’ ROUTINE 
5$ CHECK FOR 46 SECTORS COMPLETED 


030214 : a41$+12 SET SECTOR = 0 FOR DATA WRITTEN 
030215 zINCR TRACK FOR THE ‘'RUN'* ROUTINE 
030230 SET SECTOR = 0 FOR DATA WRITTEN 
105237 030231 ; INCR TRACK FOR THE ‘RUN’ ROUTINE 


005237 004652 : zARE 46 SECTORS DONE ? 
001266 1$ CONTINUE IF NOT 


:*NOW 46 SECTORS HAVE BEEN FORMATTED 


;*READ HEADER AND DATA FOR 46 SECTORS=11960 WORDS 
;*WITH BUS ADDRESS INHIBITED 


030426 004737 033072 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
:*FILL READ HEADER AND DATA COMMAND 


030432 004037 035054 RO, @4RUN ;SETUP TO RUN FOR DATA COMMAND 
000000 0 *CYLIN ER 0 
sSECTOR 21. 
TRACK 0 
sWORD COUNT (DATA) = 11956. + 
;BUS ADDRESS 
; INHIBIT _BUS ADDRESS INCREMENT 
BITS PER WORD FORMAT 
7GET READY TO DO A REFOR 
033152 PC ,@ACHECKT : CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
057176 ~CPHALT :CANNOT CONTINUE TESTING IF NOT 
0046506 151472 @ARP4VEC ,ARPVEC SET RPO4 VECTOR ADDRESS 
002350 @AREFOR,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 #GO'IE, (SP) :GET READY TO SET GO AND 
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030504 012677 151470 MOV (SP)+,@RHCS1 :GO WITH 
030510 011100 MOV aR1 ,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
030512 011305 MOV @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


:*TIME IS NOT IMPORTANT 


030514 104413 ;WAIT FOR RDY BIT TO SET 
002200 WAIT FOR RHCS1 REGISTER 
090200 D ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
121320 . ALLOW 416800 MICRO SECONDS 
121320 : RDY MUST SET BETWEEN 


:*NOW THAT ALL 11960 WORDS HAVE BEEN READ 
3*"OPI* WILL BE CHECKED TO BE NOT SET 


017737 151450 002264 @RHER1 , a#ER1 GET RHER1 
020000 002264 #OPI,a#ER1 sis “OPI" Ht ‘- 
6$ CHECK ‘SC* IF 
035014 * { geteiadecret ;READ & SAVE ALL baat & RPO4 REGISTERS 


030550 
ZCAUSED 'OPI' TO SET 
3*"SC* WILL BE CHECKED 


030552 151422 002262 : @RHCS1,a4CS1 :GET RHCS1 
030560 100000 002262 #SC,aACS1 ZIS "SC' SET 
030566 7$ ; CONT INUE TESTING IF NOT 
030570 035014 PC, @4#PUTREG READ & SAVE ALL RH11 & RPO4 REGISTERS 
030574 104072 72 ;READ HEADER AND DATA 
FOR 11960 WORDS, THAT IS OVER THREE 
; INDEX PULSES, CAUSED AN UNDEFINED ERROR 


030576 : ;CONTINUE WITH THE NEXT TEST 
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SCOPE 

MOV ASTACK, SP ;RESET STACK 

MOV #36 ,Q4TSTNM SAVE TEST NUMBER 

JSR PC ,@#CLDISK SET R1-RHCS1, R2=-RHCS2 


;*THE FOLLOWING CLEARS ARE TO INITIALIZE TEST FROM CYLINDER 0 
av1$+i2 START WITH SECTOR/TRACK = 0 
a4#2$+10 ZSTART WITH DATA = 
a43$+6 SSTART WITH 0 FOR COMMAND 


MOV #19. ,Q4STMP1 319 TRACKS TO BE WRITTEN 
z*THIS GETS THE HEADS TO CYLINDER 0 


PC ,@A#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
,CPHALT CANNOT CONTINUE TESTING IF NOT 
STOP TEST 


@ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


@ARECALI,-(SP) ;GET READY TO MOVE COMMAND 
AGO!IE, (SP) :GET READY TO SET GO AND 
(SP)+,@RHCS1 :GO WITH 


z;WAIT FOR DRY BIT TO SET 

WAIT FOR RHDS1 REGISTER 

WAIT FOR DRY BIT IN RHDS1 REGISTER 
ALLOW 250000 MICRO SECONDS 

z:DRY MUST SET BETWEEN 


PC ,a@A4CLDISK SET R1-RHCS1, R2-RHCS2 


*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO, @4#F LHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM s LOCATION WHERE SAVED 

“s ;NUMBER OF WORDS SAVED 
10000 SFIRST DATA WORD 

<0*400>!0 ;SECOND DATA WORD 

0 ; THIRD DATA WORD 

0 SFOURTH DATA WORD 


:*FILL WRITE FROM BUFFER WITH DATA 

JSR RO, @#CLAREA 7 CLEAR 256. WORDS, FROM WRFROM+10 

WRF ROM+10 STARTING FROM WRFROM+10 

256. 3256. Woks 

<0.*2000>!<0.*40>!0 sFILL WITH <0. *2000>!<0.*40>!0 
:*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR RO, @A#RUN ; SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 


SEQ 0141 
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000 . STRACK 0 


000 . TRACK 0 
177374 ° [WORD COUNT (DATA) = 256. + 
002370 [BUS ADDRESS 
000000 0 ;DO NOT INHIBIT BUS ain INCREMENT 
010000 716 BITS PER WORD FORMA 
002344 :GET READY TO DO A ORIFOR 


004737 033152 PC, ey CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
104401 057176 ,CPHALT ; CANNOT CONTINUE TESTING IF NOT 
000000 zSTOP TEST 


013777 004506 151160 @ARP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 


013746 002344 QAWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
052716 000101 AGO!IE, (SP) :GET oy = gig TO SET GO AND 
031016 012677 151156 (SP) +,@RHCS1 :GO WITH 


7*ONE REVOLUTION = 16670 MICRO SEC., ONE SECTOR = 760 
z:*MICRO SEC. MAX TIME ALLOWED = ONE REVOLUTION + HEAD 
z*SWITCH + 2 SECTORS, MIN TIME ALLOWED = SECTOR (FIRST CASE) 
:*IF THERE IS A FAILURE HERE HALT PROGRAM AFTER ERROR WITH 
>*SWITCH 15 AND SEE CURRENT CYLINDER REGISTER TO DETERMINE 
;*WHAT CYLINDER !¢ FAILING 


031022 104413 sWAIT FOR RDY BIT TO SET 
031024 WAIT FOR RHCS1 REGISTER 
031026 RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 


031030 . ALLOW 16500 MICRO SECONDS 
031032 001572 . ;RDY MUST SET BETWEEN 


z:*NOW SECTOR 0 OF ONE TRACK HAS BEEN WRITTEN CHECK COMPOSIT 
;*ERROR BIT TO BE SURE NO ERRORS HAPPENED 


*SAVE REGISTERS IN SAVE TABLE 
004737 035014 JSR PC ,a@4PUTREG 


032737 040000 002304 #ERR,QADS1 :ANY DISK ERRORS 
9$ BRANCH IF YES 
040000 002262 ATRE ,@ACS1 ;ANY RH ERRORS 
031056 001401 4$ BRANCH IF NO 


031060 104066 : 66 SOME ERRORS OCCURRED 
WHILE DOING WRITE HEADER 
AND DATA 
;*THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING 
062737 000400 030724 : #400 ,a#1$+12 NEXT TRACK FOR HEADER 
062737 000040 030742 #40 ,a#2$+10 NEXT TRACK FOR DATA 
031076 062737 000400 030752 #400 ,a#3$+6 NEXT TRACK FOR COMMAND 


031104 005337 001200 a4$TMP 1 ;COUNT 19 TRACKS 
031110 001300 1$ 


;*THE FOLLOWING CLEARS SETS UP FOR READ HEADER AND DATA 
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031112 031172 CLR OASST3+12 ZSTART WITH SECTOR/TRACK = 0 
031116 031210 CLR a4SST4 10 START WITH DATA = 0 

031122 031220 CLR @ASST5+6 START WITH 0 FOR COMMAND 
031126 033072 JSR PC,@A#CLDISK SET R1-RHCS1, R2=-RHCS2 


;*SET UP FOR READ HEADER AND DATA 
031132 012737 000023 001200 ssT1: MoV #19. ,Q4$TMP1 319 TRACKS TO BE READ 


*FILL READ INTO BUFFER WITH ALL ONES 
031140 SST2: 


004037 032742 JSR RO,@4CLAREA CLEAR 260. WORDS, FROM REINTO 
003434 NTO STARTING FROM REINTO 
260. +i ry 


000404 
177777 FILL WITH -1 
031152 013737 031140 001110 @ASST2,a#$LPERR Ser LOOP POINT 


. :*FILL WRITE FROM BUFFER WITH EXPECTED HEADER 
032716 "JGR RO, a4F LHEAD : SAVE HEADER DATA IN WRFROM 
WRF ROM 


031160 


ated ae WHERE SAVED 
4 R OF WORDS SAVED 
10000 D 
. 
0 FOURTH DATA WORD 
:*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


032742 —— RO, @#CLAREA =CLEAR 256. WORDS, FROM WRFROM+<4*2> 
WR ROMS <42> a vols ARTING FROM WRFROM+<é*2> 
031210 <0. *2000>!<0*40>!0 eda sFILL WITH <0.*2000>!<0*40>!0 


:*FILL COMMAND FOR READ HEADER AND DATA 


035054 RO, @4#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 

TSECTOR 0 

; TRACK 0 
:WORD COUNT (DATA) = 256. + 

BUS ADDRESS 
0 [DO NOT INHIBIT BUS ADDRESS INCREMENT 

031230 014000 ECI!FMT22 316 BITS PER WORD FORMAT 
031232 002350 REFOR :GET READY TO DO A REFOR 


031234 004737 033152 PC ,@ACHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
031240 104401 057176 ,CPHALT CANNOT CONTINUE TESTING IF NOT 
031244 000000 STOP TEST 


031246 013777 004506 150712 @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 
031254 013746 002350 @AREFOR,-(SP)  ;GET READY TO MOVE COMMAND 


052716 000101 #GO!IE, (SP) :GET READY TO SET GO AND 
012677 150710 (SP) +,@RHCS1 :GO WITH 


een a ay ee ee eee ae a es ae ee ee eee eS ee ee ee eT ee ee ee ee 


031212 
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001004 
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104066 
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0 


0 
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002304 
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031172 
031210 
031220 


10$: 


11$: 


12$: 


13$: 


5$: 
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SEQ 0144 


T ;WAIT FOR RDY BIT TO SET 
RHCS1 ;WAIT FOR RHCS1 REGISTER 
RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
1650. ALLOW 16500 MICRO SECONDS 
890. ;RDY MUST SET BETWEEN 


>*NOW SECTOR 0 OF ONE TRACK HAS BEEN READ CHECK COMPOSIT 
[*ERROR BIT TO BE SURE NO ERROR HAPPENED 


gees y gts A fe SAVE TABLE 


PC ,@4PUTR 
BIT #ERR,@ADS1 ANY DISK ERRORS 
BNE 10$ [BRANCH IF YES 
BIT #TRE ,@ACS1 ;ANY RH ERRORS 
BEQ 11$ ;BRANCH IF NO 
ERROR 66 SOME ERRORS OCCURRED 


;WHILE DOING READ 
;HEADER AND DATA 


7*NOW THE READ DATA WILL BE COMPARED DATA IN EACH a 
z7*I1S UNIQUE IF PROGRAM IS HALTED ON ERROR THEN LOOK A 
;*RHDST TO GET WHAT TRACK IS IN ERROR. LOOKING AT THE DATA 
7*BITS NO 4,5,6,7,8 IN GOOD DATA ALSO GIVES TRACK NUMBER 
:*IN GOOD DATA ALSO GIVES TRACK NUMBER 


JSR RO, a4 COMPAR COMPARE TWO BLOCKS OF MEMORY 

WRFR ;GOOD DATA STARTS FROM WRFROM 

REINTO TEST DATA STARTS FROM REINTO 

260. 7260., WORDS TO BE COMPARED 

12$ ;RETURN TO 12$ ON ERROR 

13$ ;RETURN TO 13$ ON NO ERROR 
:BITS 4,5,6,7,8 

ERROR 67 [READ HEADER AND DATA 

RTS PC ROR 


>*NOW INCREMENT TO READ 


zER 

SHEAD SELECTION ERROR 
;DATA READ GIVES NATURE 
[OF ERROR 

zsEXCEPT FOR THE 

;FOUR HEADER WORDS 
;THE BITS 4,5,6.7.8 
3GIVE THE TRACK NUMBER 


NEXT TRACK 


ADD #400,a4SST3+12 ;NEXT TRACK FOR HEADER 
ADD #40,QA4SST4+10  ;NEXT TRACK FOR DATA 
ADD #400,@4SST5+6 ;NEXT TRACK FOR COMMAND 
DEC a4$TMP1 :COUNT 19 TRACKS 

BNE 5$ 

BR TST37 7;TO NEXT TEST 

JMP @ASST2 ; JUMP BACK 


aon 
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031410 


031440 


031442 
031450 
031454 
31460 
031466 
031472 
031476 


031502 


031512 
031514 
031520 
031522 


031530 


031532 
031540 
031540 


031544 


031562 


031564 
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013777 


013746 
052716 
012677 


104413 
002222 
000200 
060650 
060650 


005737 
001404 


012737 
000403 


012737 


057176 


010000 
031574 
031602 
004506 
002326 


000101 
150476 


004636 


001001 
000401 


033072 


032716 
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031554 


001200 


001200 


TST3?7: 


14$: 
15$: 


C 12 
27-JUL=78 12:32 PAGE 146 SEQ 0145 
HEAD SELECTION TEST ERR & TRE 


ASTACK, SP RESET STACK 

#37 ,AATSTNM ;SAVE TEST NUMBER 

PC ,@ACLDISK SET R1-RHCS1, R2-RHCS2 

PC ,@#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
,CPHALT eS scans TESTING IF NOT 


A cECTOR y INITIALIZE TEST FROM CYLINDER 0, TRACK O, 
-* 
#10000,a41$+10 ;CYLINDER HEADER DATA 
a4#2$+10 sDATA 
a4 3$+4 sCYLINDER COMMAND RHCA 


;*THIS IS TO GET THE HEADS TO CYLINDER ZERO 
MOV @ARP4VEC,A@RPVEC ;SET RPO4 VECTOR ADDRESS 


MOV @ARECALI,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
MOV (SP)+,@RHCS1 :GO WITH 


WAT ;WAIT FOR DRY BIT TO SET 

RHDS1 z;WAIT FOR RHDS1 REGISTER 

DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
25000. ZALLOW 250000 MICRO SECONDS 

25000. ;DRY MUST SET BETWEEN 


z*THE DRIVE TYPE IS CHECKED AND THE APPROPRIATE MAX. 
z*CYLINDER DIFFERENCE IS SET UP 


TST @ARPO6 =; TEST FOR RPO6 DRIVE 

BEQ 14$ TREAT UNIT AS AN RPO4 
; TREAT AS AN RPO6 

MOV #513.,04$TMP1 ;515 CYLINDERS 

BR 15$ ; CONT INUE 


MOV #257. ,@A4STMP1 ;257 CYLINDERS 
CONTINUE WITH TEST 


JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
i*FILL WRITE FROM BUFFER WITH HEADER 
JSR RO, aA#FLHEAD SAVE HEADER DATA IN WRFROM 


WRF ROM LOCATION WHERE SAVED 
4 ; R OF WORDS SAVED 
ae D 


0 : 
0 FOURTH DATA WORD 
:*FILL WRITE FROM BUFFER WITH DATA 
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031574 


031576 
031576 
031602 
031604 
031605 
031606 
031610 
031612 
031614 
031616 


031620 
031624 
031630 


031632 


031650 


031654 


031710 
031716 
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004037 


013777 
013746 


052716 
012677 


104413 


002354 


005237 


001316 


013737 
005037 


032742 


035054 


033152 
057176 
004506 
602344 


000191 
150324 


031554 


031740 
001200 
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150326 


001110 
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DIFFERENCE LINES 


JSR RO, @ACLAREA ; CLEAR es at iael FROM WRFROM+10 
Agata ARTING FROM WRFROM+10 


56. 3256. woRds 
SFILL WITH 0 


;*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 


RO,@4RUN : SETUP TO RUN FOR DATA COMMAND 

: CYLINDER 0 
0 sSECTOR 0 
0 TRACK 0 

:WORD COUNT (DATA) = 256. + 

;BUS ADDRESS 

:DO0 NOT INHIBIT BUS ADDRESS INCREMENT 

316 BITS PER WORD FORMAT 

GET READY TO DO A WRIFOR 


PC ,@A#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
~CPHALT ; CANNOT CONTINUE TESTING IF NOT 
;STOP TEST 


@ARP4VEC,A@RPVEC ;SET RPO4 VECTOR ADDRESS 
@AWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 


#GO!IE, (SP) ;GET READY TO SET GO AND 
(SP)+,@RHCS1 :GO WITH 


7*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760 
:*MICRO SECONDS, ONE SEEK = 7000 MICRO SECONDS. 

7 *MAX TIME = 1 REVOLUTION + 1 SEEK + 2 SECTORS 

;*MIN TIME = 1 SECTOR 


;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 12690 MICRO SECONDS 

zRDY MUST SET BETWEEN 


>*NOW ONE SECTOR WRITE IS COMPLETE. CHANGES WILL BE MADE 
:*FOR THE NEXT SECTOR, THEN THE ABOVE WILL BE REPEATED 
— CYLINDER 256./512. IS REACHED 


a41$+10 av pee HEADER DATA 

a4#2$+10 zDATA 

aA3$+4 CYLINDER COMMAND (RHCA 

a4$TMP1 [COUNT DOWN FOR 256. WS, CYLINDERS 
1$ [DO NEXT WRITE IF 256./512. NOT DONE 


*NOW ALL 256./512. CYLINDERS HAVE CYLINDER NUMBER WRITTEN 


:*AS DATA ON SECTOR 0, TRACK 0. NOW A RECALIBRATE, FOLLOWED 
:*BY READ es AND DATA, THEN A CHECK ag BE DONE ON 
>*CYLINDER 0,1,2,4,8,16,32,64,128,256,512, AND 0 


MOV @44$,a4$LPERR ;LOOP ON ERROR 
CLR aA$TMP1 CYLINDER COUNTER 
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z* INITIALIZE, RECALIBRATE, AND READ CYLINDERS 


;*SETUP FOR CYLINDER 0 
031722 012737 910000 032022 MOV #10000,a45$+10 ;CYLINDER HEADER (DATA) 
0317 005037 032042 CLR a#6$+10 ;DATA 
005037 032050 CLR a47$+4 CYLINDER COMMAND (RHCA) 


031740 004737 033072 JSR PC, a#CLDISK :SET R1=-RHCS1, R2=RHCS2 
031744 013777 006506 150214 MOV @ARP4VEC,A@RPVEC :SET RPO4 VECTOR ADDRESS 


031752 013746 002326 MOV @ARECALI,-(SP) ;GET READY fO MOVE COMMAND 
031756 052716 000101 BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
031762 012677 150212 MOV (SP)+,@RHCS1 GO WITH 


WAT ;WAIT FOR DRY BIT TO SET 

RHDS1 ;WAIT FOR RHDS1 REGISTER 

DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
25000. ALLOW 250000 MICRO SECONDS 

25000. DRY MUST SET BETWEEN 


:*CLEAR READ INTO BUFFER ty ALL ONES 
032742 JSR RO, @ACLAREA ;CLEAR 260. WORDS, FROM REINTO 
REINTO STARTING FROM REINTO 
032006 000404 260. 7260. WORDS 
032010 177777 =] sFILL WITH -1 


;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER 
032012 


004037 032716 ; JSR RO, @4F LHEAD ;SAVE HEADER DATA IN WRFROM 


002370 WRF ROM ;LOCATION WHERE SAVED 
000004 4 NUMBER OF WORDS SAVED 
010000 10000 

00000 0 


0 
0 FOURTH DATA WORD 


032742 JSR RO, @ACLAREA CLEAR 256. WORDS, FROM WRFROM+10 
WRF ROM+10 ; STARTING FROM WRFROM+10 
256. 7256. WORDS 
FILL WITH 0 


;*FILL READ HEADER AND DATA COMMAND 


035054 RO, @4RUN SETUP TO RUN FOR DATA COMMAND 
0 :CYLINDER 0 
sSECTOR O 
TRACK 0 
:WORD COUNT (DATA) = 256. + 
;BUS ADDRESS 
0 :DO NOT INHIBIT BUS — INCREMENT 
ECI!FMT22 :16 BITS PER WORD FORMAT 
002350 REFOR ;GET READY TO DO A REFOR 


004737 033152 JSR PC ,@#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
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032072 
032076 


032100 


032106 
032112 
032116 


032122 


032132 


032134 


032150 


032152 
032154 


032156 


032170 


032172 
032176 


032216 


032216 
032220 
032226 
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104401 
000000 


013777 


013746 
052716 
012677 


002370 
003434 


000404 
032152 
032156 


104070 
000207 


005737 


005737 
001404 


022737 
000403 
022737 


101421 
063737 
013737 


057176 


004506 


002350 
000101 
150056 


035120 


001200 
001200 


004636 


001000 
000400 


001200 
001200 


001200 
001200 


001200 
032042 
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TYPE ~CPHALT CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 


MOV @ARP4VEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 


;*ONE_ SECTOR = 760 MICRO SECONDS, ONE REVOLUTION = 
3*16670 MICRO SECONDS, MAX SEEK = ait tee MICRO SECONDS 
>*MAX TIME = ONE REV + 1 SEEK + 1 SECTOR 

7*MIN TIME = 1 SECTOR 


@AREFOR ,- (SP) ;GET READY TO MOVE COMMAND 
AGO! IE, (SP) ;GET READY TO SET GO AND 
(SP)+,@RHCS1 ;GO WITH 


;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BiT IN RHCS1 REGISTER 
ALLOW 34720 MICRO SECONDS 

RDY MUST SET BETWEEN 


z:*CHECK READ WORDS AS ALL READ COMMANDS HAVE BEEN CHECKED 
3* (DATA ERRORS MAY IMPLY ‘"IMPLIED SEEK’’ ERRORS) 


JSR RO, @#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
OM :GOOD DATA STARTS FROM WRFROM 
: TEST DATA STARTS FROM REINTO 
7260., WORDS TO BE COMPARED 
RETURN TO 8$ ON ERROR 
RETURN TO 9$ ON NO ERROR 


ERROR 70 ;READ HEADER AND DATA ERROR 
RTS PC DATA GIVES EXPECTED CYLINDER 


>*NOW ONE CYLINDER HAS BEEN CHECKED. CHANGES WILL BE MADE 
et A Re NEXT CYLINDER AND THE ABOVE SECTOR READ WILL BE 
** 


aA$TMP1 iS 37 ZERO 7? 

10$ BRANCH IF NOT ZERO 
aF$TMP1 ZADD ONE IF = 0 

11$ PUT ONE IN CYLINDER 


@ARPO6 =; TEST FOR RPO6 DRIVE 

16$ ; TREAT UNIT AS AN RPO4 
; TREAT AS AN RPO6 

#512.,a#$TMP1 ;1S IT PASSED 512 CYLINDERS YET ? 

17 ; CONT INUE 

#256. ,a4$TMP1 ;I1S IT PASSED 256 CYLINDERS YET ? 
; CONT INUE 

12$ YES, SO GO TO ZERO 


@ASTMP1 ,aa#$TMP1 “DOUBLE THE CYLINDER 
aA#STMP1.a#6$+10 :MAKE CYLINDER ADDRESS THE DATA 








CZ 
CZ 
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032256 
032262 
032266 
032270 
032276 
032300 
032302 
032310 
032312 
032312 


013746 


001200 
010000 
032022 
001200 
031740 
004636 


002000 


001000 
091200 


031740 
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032050 


001200 


001200 


001200 
032022 


12 
sreteece 12: 38 PAGE 150 


IFFERENCE LINES 


OAS TMP1,=-(SP) 
#FMT22, (SP) 
(SP) +,a#5$+10 
OAS TMP 1 ,a#7$+4 
ahs$ 


:GET CYLINDER NUMBER 

: INCLUDE FORMAT BIT 
sHEADER DATA (CYLINDER) 
:CYLINDER COMMAND (RHCA) 
RETURN TO RECALIBRATE 


— ; TEST FOR RPO6 DRIVE 


#1024. ,a4STMP1 
13$ 


19$ 
#512. ,a4STMP1 
13$ 


@ASTMP1 ,a#STMP1 
#10000 ,a#5$+10 
a#6$+10 

a47$+4 

aA4$ 


TREAT UNIT AS AN RPO4 
TREAT AS AN RP06 


3512 DONE YET ? 
oe 


:OUT 
> CONT INUE 


;DOUBLE THE CYLINDER 
+ eee HEADER DATA 


:CYLINDER COMMAND (RHCA) 
RETURN TO THE RECAL IBRATE 


sEND OF TEST 


SEQ 0149 
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TST40: 
009001 001212 MO #1,$TIMES 32:D0 1 ITERATION 
000000 177776 MO #0,PS ;REINSTATE PS TO 0 
032366 ,65$ 77 TYPE ASCIZ STRING 
BR 64$ 3iGET OVER THE ASCIZ 
004616 QAUNIT ,-(SP) :GE1 READY TO TYPE UNIT NUMBER 


032454 ,67$ TYPE ASCIZ STRING 
66$ 3:GET OVER THE ASCIZ 
001112 MOV @ASERTTL,-(SP) ;GET READY TO TYPE NUMBER OF ERRORS 


001112 @ASERTTL CLEAR TOTAL NUMBER OF ERRORS 
a4$TSTNM ;CLEAR TEST NUMBER 
@ASELECT STARTING FROM 200 ? 
3$ ;TEST NEXT DRIVE IF SO 
CONTINUE TESTING THIS ONE IF NOT 


001100 @F4$PASS ; INCREASE PASS COUNT 
032701 , SENDMG : TYPE END PASS # 
001100 @ASPASS,-(SP)  ;GET PASS NO. 


TYPE IT OUT 
032676 . SENULL 
032526 007720 OATSTS ; JUMP TEST 4 


032532 177777 040746 3$: #-1,a4PRITEM ;CLEAR PREVIOUS ITEM NUMBER 
004620 D JOUN I zNO. OF UNITS PRESENT DECREMENTED 
;BRANCH IF ALL DRIVES COMPLETE 


004616 ;UNIT UNDER TEST 
; TABLE 


004576 z 
(R1)+,RO z1S THIS UNIT JUST TESTED ? 
2$ CONTINUE IF YES 
BR 1$ ; INCREMENT IF NO 
004616 ; (R1) ,@#UNIT THIS IS NEXT UNIT 
032570 007720 @ATSTS TEST THE NEXT DRIVE 
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. SBTTL 
-SBTTL ***SUBROUTINES*** 


032574 


001102 STSTNM 3-ZERO THE TEST NUMBER 
hey 2 ZERO THE NUMBER OF ITERATIONS 
0 Se tat, THE PASS NUMBER 
100000 001100 #100000, $PASS ::DON'T ALLOW A NEG. NUMBER 
ane ;:LOOP? 


$DOAGN se VES 
‘Shei ZZRESTORE COUNTER 


SEOPCT: . 


SENDCT: . 


032701 ~ SENDMG ;TYPE "END PASS #' 
001100 MO $PASS ,-(SP) + SAVE $SPASS FOR TYPEOUT 
=260 TYPE=-DECIMAL ASCII WITH SIGN 
032676 , SENULL zz TYPE A NULL CHARACTER 
000042 $GET42: a42,R0 ::GET MONITOR ADDRESS 
$DOAGN : BRANCH IF NO MONITOR 
ZzCLEAR THE WORLD 
SENDAD: PC, (RO) 3:60 TO MONITOR 
32 SAVE ROOM 
7cFOR 
:zACT11 
a(PC)+ 7 RETURN 
SRTNAD: . iP 
377 000 $ENULL: . -1,-1,0 zNULL CHARACTER STRING 
042412 042116 S$ENDMG: . <15><12>/END pass 4/ 
051501 020123 
032714 
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CZRJJC.P11 26-JUL-78 10:07 END OF PASS ROUTINE 
7016 
7017 
7018 THIS FILLS MEMORY WITH GIVEN DATA 
7019 USED CHIEFLY FOR HEADER INFORMATION 
7020 sCALL IS 
7021 : JSR RO, @4F LHEAD FILL HEADER 
7022 ; LOC LOCATION WHERE SAVED 
7023 : XN NUMBER OF WORDS 
7024 : xD1 DATA REPEATED XN TIMES 
7025 : XD2 DATA REPEATED XN TIMES 
7026 ; 
7027 ; 
7028 ; 
7029 
7030 032716 FLHEAD: 
7031 032716 610146 MOV R1,-(SP) :zPUSH R1 ON STACK 
7032 032720 019246 MOV R2,-(SP) :zPUSH R2 ON STACK 
7033 032722 012001 MOV (RO) +,R1 :R1 HAS ADDRESS OF WHERE TO SAVE 
ae 022724 012002 MOV (RO) +,R2 :R2 HAS NUMBER OF WORDS 
7O%6 *NOW FILL DATA 
7038 032726 012021 1$: MOV (RO) +, (R1)+ SAVE DATA 
7039 032730 005302 DEC R2 ;DECREMENT COUNT 
7040 032732 001375 BNE 1$ BRANCH IF INCOMPLETE 
7041 032734 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
7042 032736 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 
7043 032740 000200 RTS RO 
7044 
7045 
7046 
7047 THIS CLEARS ANY BLOCK OF MEMORY. 
7048 FILLING IT WITH ANY DATA 
7049 CALL IS 
7050 : JSR RO, @4CLAREA 
7051 : F : FROM 
7052 : N NUMBER OF WORDS 
wer : D :DATA TO BE FILLED 
7055 :R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
7056 :R2 WILL HAVE NUMBER OF WORDS 
7057 3R3 WILL HAVE DATA 
7058 
7059 032742 CLAREA: 
7060 032742 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
7061 032744 010246 MOV R2,-(SP) — R2 ON STACK 
7062 032746 010346 MOV R3,-(SP) PUSH R3 ON STACK 
7063 032750 012001 MOV (RO)+,R1 FROM 
7064 032752 012002 MOV (RO) +,R2 : NUMBER 
7065 032754 012003 MOV (RO) +,R3 DAT 
7066 032756 010321 1$: MOV R3,(R1)+ moe DATA 
7067 032760 005302 DEC R2 : COUNT 
7068 032762 001375 BNE 1$ “BRANCH IF NOT COMPLETE 
7069 032764 012603 MOV (SP)+,R3 *;POP STACK INTO R3 
7070 032766 012602 MOV (SP) +,R2 >:POP STACK INTO R2 
7071 032770 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
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ate 032772 000200 RTS RO ;RETURN TO MAIN PROGRAM 


Oo 
™N 
Ww 


THIS IS A SUBROUTINE TO FILL SAVED REGISTER LOCATION 
;WITH GIVEN VALUE 


JSR RO, a@4F ILLRE 
RHXX oy eee NAME 
D . 


o 


032774 : 
010146 MO R1,-(SP) 33PUSH R1 ON STACK 
R2,-(SP) 33PUSH R2 ON STACK 
(RO) +,R1 ADDRESS OF ADDRESS OF REGISTER 
(RO) +,R2 DATA 
002172 #RHWC ,R1 OF SET 
004512 R2,SAVERE (R1) :DATA IS MOVED IN 
(SP)+,R2 3z;POP STACK INTO R2 
(SP)+,R1 3zPOP STACK INTO R1 
033020 RO RETURN TO MAIN PROGRAM 


? 
7 
? 
? 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
y 
7 
7 
i 
i 
i 
i 
i 
i 
j 
i 
i 
i 
i 
i 
i 
i 
i 
‘ 
{ 
‘ 
i 
! 
t 
‘ 
{ 
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:CALL ~ gppeyleee SETS UP FOR SEARCH 
ALL 

JSR RO,@4SRCH 

C CYLINDER 


* BYTE “SECTOR 
: BYTE : TRACK 


033022 012077 147164 SRCH: (RO) +, @RHCA SET DESIRED CYLINDER ADDRESS 
033026 012077 147152 (RO) +, @RHDST ;SET DESIRED SECTOR/TRACK ADDRESS 
033032 013777 002334 147140 @ASERCH,@RHCS1 ;GET READY FOR SEARCH 


7WITH 30 IN RHCS1 
033040 000200 RO 


emi eget SETS UP FOR SEEK COMMANDS 
LL 

: JSR RO, @#SEEKCY 

; C CYLINDER 


7124 : 
7125 033042 012077 147144 SEEKCY: (RO) +,@RHCA ;SET DESIRED CYLINDER ADDRESS 


7126 033046 013777 002352 147124 M Spa gee gaat MOV 4 INTO RHCS1 
7127 033054 000200 RO RETURN TO MAIN PROGRAM 


ee ee ee ee ee ne a ee ee ee aS eS a i a ee ee” i” ee | 
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033056 
033062 
033070 


033072 


033112 
033116 
033122 
033124 


26-JUL-78 1 


052077 
013777 
000200 


013701 


012712 
013712 
005011 
000207 


147126 
002354 


002200 


002202 


000040 
004616 


147110 


END OF PASS ROUTINE 


RO, @40F SET 


(RO) +, @RHOF 
ga a" pene 


@ARHCS1,R1 
@ARHCS2 ,R2 
@ARHDS1 ,R3 
@ARHER1 ,R4 


ACLR,AR2 
@AUNIT ,AR2 
aR1 


PC 


THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS 
CALL IS 


sMICRO INCHES OFFSET 


SET OFFSET REGISTER 
;MOV14 INTO RHCS1 
RETURN TO MAIN PROGRAM 


7R1 WILL BE CONTROL AND STATUS! 
;R2 WILL BE CONTROL AND STATUS2 
3R3 WILL BE DISK STATUS REGISTER) 
3R4 WILL BE ERROR REGISTER #1 


;CLEAR ALL REG. 
;REINSTATE UNIT NO. 
;CLEAR FUNCTION BITS 


SEQ 0155 


ao 
MN 
Po] 


. 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
? 
7 
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THIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 
SAND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 


z1T MAY CHECK VOLUME VALID (VV) IN RHDS1, DEPENDING ON ENTRY POINT 


033126 000000 PCJSR: 3PC OF JSR 


033130 011637 033126 CHECK: (SP) ,@#PCJSR SAVE PC OF JSR+4 

033134 000004 033126 S #4, aAPCISR 

033144 000100 ‘DONT CHECK VV BIT 

033150 000406 BR CHECKC :GOTO COMMON CHECK ROUTINE 


033152 011637 0335126 CHECKT: (SP) , @#PCJSR sSAVE PC OF JSR+4 
162737 000004 033126 S #4 ,AAPCISR ZGET PC OF JSR 
011346 @R3,-(SP) GET RHDS1 2 DO VV CHECK AT 3$ 


011146 CHECKC: -(SP) GET CS1 

042716 173577 B Fi78s77. (SP) ;CLEAR UNWANTED BITS 
033174 022726 004200 #DVA!RDY, (SP)+ :RACST SHOULD HAVE DEVICE AVAILABLE 
033200 001403 3$ BRANCH IF GOOD 
Raa 011137 001122 aR1 , @#$SBDADR ;BAD DATA REGISTER (RHCS1) 


104062 62 ;RHCS1 DID NOT HAVE DEVICE 
AVAILABLE RIGHT AT THE START 
;ALL OTHER BITS SHOULD BE 0 
033210 042716 102000 2 MATA!LBT,(SP)  ;CLEAR UNWANTED BITS 
010700 A#MOL !DPR!IDRY! VV, ;RHDS1 SHOULD HAVE THESE SET 


7$ IF GOOD 
001122 @R3, dA SBDADR “BAD DATA IN ay ttt (RHDS1) 
033226 61 ;RHDS1 HAS SOME BITS OTHER 
: THAN MOL, DRY, DPR WV SET 
zALL OTHER BITS SHOULD BE 0 
033230 000207 PC RETURN TO TEST AND HALT 


033232 062716 000006 : . ADJUST STACK TO JUMP OVER HALT IN TEST 
033236 000207 PC RETURN TO TEST AND CONTINUE 
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s*THIS IS A SUBROUTINE TO SAVE REGISTERS 
7*IN THE REGISTER TABLE TO ANY LOCATION 
;*THE CALL IS 
:*JSR RO,@#SAVER 
-* F FR 

T ;T0 

: N ;NUMBER OF WORDS SAVED 
ta MUST ALWAYS BE RHCS1 

eT MUST ALWAYS BE SAVRE 


033240 


010146 MOV 7ZPUSH R1 ON STACK 
:zPUSH R2 ON STACK 
Fa R3 ON STACK 


370 
;NUMBER 
a(Rl)+, (R2)+ + REGISTER CONTENTS 


OUNT 
1$ ; BRANCH IF NOT DONE 
(SP)+,R3 POP STACK INTO R3 
(SP)+,R2 POP STACK INTO R2 
ee 3;3POP STACK INTO R1 
R 


033266 
033270 


;WHEN AN EVENT IS TO BE pie THE RPO4 VECTORS TO ‘TIME 1°° 
sPRIORITY OF PROCESS OR IS 

[PRIORITY OF TRAPS MUST BE é 

:PRIORITY OF RPO4 INTERRUPTS IS 7 


033272 005077 146746 TIME1: CLR @PCLCSR ;STOP THE CLOCK 
017737 033330 MOV @PCLCTR,@#WAITTM ;GET TIME ON CLOCK 
017737 004564 TIME2: MOV @RHCC,@A4FINACC ;GET CURRENT CYLINDER 
017737 146720 004562 MOV @RHLA,@A#FINALA ;GET LOOK AHEAD 

033320 000002 RTI RETURN TO WAIT P OR WAIT.T 


:THIS IS A WAIT LOOP WHEN AN EVENT IS TO BE TIMED 
; THE CALL IS 





an 
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WAT 
S eet “yee ADDRESS 
8 ;BIT WAITED FOR 

TA : TIME ALLOWED GIVEN IN 10 MICROSEC 
TO TOLERANCE PLUS/MINUS IN 10 MICROSEC 


“RI-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS 

[R2=WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS 
[MINIMUM TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS 
FOR THE SLOWEST PROCESSOR 


033322 WAITPC: sWAT PC 
000000 WAITRE: [WAIT ON REGISTER ADDRESS 
WAITBT: ;WAIT ON BIT 
WAITTM: WAITED TIME 
033330 WAIT.P: @AWAITTM “CLEAR WAITED TIME 
146704 @PCLBUF ;CLEAR COUNT SET BUFFER 
000021 146674 MO #60!BIT4, @PCLCSR ; Poem UP, ip ow START CLOCK 


3=PUSH R2 ON STACK 
. 33PUSH R3 ON STACK 
000010 RO HAS ADDRESS OF NEXT LOCATION 
033322 NOW WAITPC HAS WAT PC + 2 
000002 033322 WAT PC IS _IN WAITPC 
033324 @(RO)+,a#WAITRE :WAIT ON REGISTER ADDRESS 
033326 (RO)+,a#WAITBT :WAIT ON BIT 
(RO)+,R1 3R1 HAS TIME IN 10 MSEC 
(RO)+,R2 :R2 HAS TOLERANCE IN 10 MSEC 
000010 RO,10(SP) RESTORE RETURN ON STACK 


z*THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS 


033570 a4T IMCNT ,R3 3R3_ IS A TEMPORARY COUNTER 
033326 177674 : ne as /@WAI TRE” ‘Is: REQUIRED BIT THERE 


CH IF YES 
rt = COUNT IF REQUIRED BIT NOT THERE 


033570 @ATIMCNT ,R3 ; TEMPORARY COUNTER 
033326 177654 : 7 apc @WAI TRE doa REQUIRED BIT THERE 


CH IF YES 
aS ;COUNT IF REQUIRED BIT NOT THERE 


2$ 
177642 001126 Q@WAITRE, orennenr {pg ae CONTENTS FOR TYPEOUT 
000100 146506 #IE,aRHCS1 :DID ANY INTERRUPT OCCUR 
3$ ‘BRANCH IF YES 
be ct DID NOT INTERRUPT 
B. 
104002 : 2 ‘RPS INTERRUPTED BUT WAITED 
ON BIT DID NOT OCCUR 
ZEVEN AFTER TWO COUNT DOWNS 
FROM 177777 TO 0 
033502 000425 7$ ; OUT 


3 *NOW TIME AND TOLERANCE WILL BE CHECKED 
033504 017737 + 001126 : MOV Q@WAITRE ,a#SBDDAT ;REGISTER CONTENTS FOR TYPEOUT 
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033512 
033520 
033522 


033524 
033526 
033530 
033534 
033536 
033540 
033542 
033544 
033546 


033552 
033554 


033556 


033570 
033572 


033574 
033574 
033576 
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032777 
001402 
104003 


000414 
160201 
023701 


090137 
103001 
104004 
012693 
012602 
012601 


012600 
000002 


177777 
000025 


010046 


013037 


000100 146460 


033330 


033330 


000004 
033322 
000002 033322 
033324 


END OF PASS ROUTINE 
MIE ,aRHCS1 
ie 


7$ 
R2,R1 
@AWAITIM,R1 


6$ 
4 


7$ 


R2,R2 
R2,R1 
R1,@4WAITTM 


7$ 
4 


(SP) +,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
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DID ANY INTERRUPT OCCUR 
:BRANCH IF YES 

; INTERRUPT DID NOT ros ~— 
SAFTER ONE BNE AND ONE MO 
— WAITED ON BIT SETTING 


:0U 

:R1 NOW HAS LOWER LIMIT OF TIME 
FOR GOOD RESULTS, WAITTM 

;MUST BE GREATER OR EQUAL 


: TORI 

;BRANCH IF GOOD 

;BIT DID OCCUR BUT TIME 
— IS BELOW LOWER LIMIT 


yey TOLERANCE 

1 NOW HAS UPPER LIMIT OF TIME 
FOR GOOD RESULTS, WAITTM 
:MUST BE LESS OR EQUAL TO R1 
BRANCH IF GOOD 
;BIT DID OCCUR BUT TIME TAKEN 
31S ABOVE UPPER LIMIT 


7 POP STACK INTO R3 
7 POP STACK INTO R2 
:zPOP STACK INTO R1 
;ZzPOP STACK INTO RO 
ZRETURN TO MAIN TEST 


;THIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILABLE 


3NO TIMING IS DONE 
CALL IS 
; WAT 


: 4 ABSOLUTE REGISTER ADDRESS 


B ;BIT WAITED FOR 


TA 3; TIME-NOT USED HERE 
; TIME-NOT USED HERE 


: TO 
“R3-1S A TEMPORARY COUNTER 


TIMCNT: 177777 
RPTCTR: 25 


WAIT.T: 
RO,-(SP) 
R3,-(SP) 


4(SP) ,RO 
RO, @AWAI TPC 
#2 ,dAWAITPC 


@(RO) +, a#WAITRE 


:COUNT FOR WAIT LOOP 
COUNT FOR INTERRUPT WAIT (11/70 CPU) 


72PUSH RO ON STACK 
72PUSH R3 ON STACK 


RO HAS ADDRESS OF NEXT LOCATION 
sWAT PC +2 IS IN WAITPC 

sWAT PC IS_IN WAITPC 

[WAIT ON REGISTER ADDRESS 
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033710 
033712 
033714 
033716 


033720 


033722 
033726 
033730 


033732 
033740 
033742 
033750 
033752 


033754 


033760 


012037 
022020 
010066 


013703 


013703 
005303 
001376 


032777 
001405 
017737 
104003 


000400 


012603 
012600 
000002 


033326 
000004 


033570 
033326 177456 


033570 
033326 177436 


177424 001126 
000100 146270 


033572 


000100 146240 
177356 001126 
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(RO)+,@#WAITBT ;WAIT ON BIT 
(RO) +, .RO)+ ;DUMP NEXT TWO WORDS-TA, TO 
RO,4(SP) sRESTORE RETURN ON STACK 


7*THIS HAS THE TWO COUNT DOWNS FROM 177777 


@ATIMCNT ,R3 ;R3 HAS TEMPORARY COUNT 

QAWAITBT ,QWAITRE ;1S REQUIRED BIT THERE ? 

S$ :CHECK FOR THE INTERRUPT 

ot [COUNT IF REQUIRED BIT NOT THERE 


aATIMCNT, R3 zSECOND COUNT DOWN FROM 177777 
lee @WAITRE ;IS REQUIRED BIT THERE ? 

:CHECK FOR INTERRUPT 
aS [COUNT IF REQUIRED BIT NOT THERE 


2$ 

QWAITRE ,a#SBDDAT ;REGISTER CONTENTS FOR TYPEOUT 
#1E,aRHCS1 :DID ANY INTERRUPT OCCUR ? 

3$ ;BRANCH IF YES 


7RPO4 DID NOT INTERRUPT 
a DID NOT OCCUR 


;RPO4 INTERRUPTED BUT 
zWAITED ON BIT DID NOT OCCUR 
sEVEN AFTER TWO COUNT DOWNS 
= FROM 177777 10 0 

T 


:*BIT DID SET SO CHECK IF INTERRUPT OCCURRED 


>*THE AMOUNT OF TIME ALLOWED CAN BE CHANGED BY ALTERING LOCATION 
3*' RPTCTR’’ ABOVE 


@ARPTCTR,R3 ;LOAD COUNTER WITH COUNT 
R3 ; COUNT DOWN ONE 
6$ ;DO AGAIN IF NOT ZERO YET 


HIE ,@RHCS1 :DID ANY INTERRUPT OCCUR ? 
5$ F YES 


BRANCH I 
@WAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT 
3 ; INTERRUPT DID NOT OCCUR 

ZEVEN AFTER ONE BNE OF 

Be WAITED ON BIT OCCURING 


5$ 


(SP) +,R3 3zPOP STACK INTO R3 
(SP)+,RO 3;POP STACK INTO RO 
RETURN TO MAIN TEST 
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zs THIS CHANGES REGISTER SAVED VALUE 
S(AL IS 

é JSR 
= R 


: N 
; a 


RO, @#CHREG 
REGISTER TO BE CHANGED 
NUMBER OF BITS TO BE CHANGED 
:NEW VALUE OF BIT MUST BE O OR1 
POSITION OF BIT TO BE CHANGED 


NEW AND Pp WILL BE REPEATED N NUMBER OF TIMES 


033762 
010146 


CHREG: 


002172 


004512 
004512 


ZTHIS FILLS 
:CALL IS 


010146 


012004 


010321 
060403 
005302 
001374 
012604 


R1,-(SP) :zPUSH R1 ON STACK 

7ZPUSH R2 ON STACK 

:R1 HAS ADDRESS OF ADDRESS OF REGISTER 
*R2 HAS NUMBER OF CHANGES 

:R1 HAS OFSET OF REQUIRED REGISTER 
71S A BIC OR A BIS TO BE DONE 

2$ “BRANCH IF A BIC IS REQUIRED 
(RO) +, SAVERE(R1) ;SET REQUIRED BIT 

3$ : BRANCH TO DECREMENT COUNT 
(RO)+,SAVERE(R1) ;CLEAR REQUIRED BIT 

R2 ;DECREMENT NUMBER OF CHANGES 

1$ ;BRANCH IF NOT COMPLETE 

(SP)+,R2 7ZzPOP STACK INTO R2 

(SP)+,R1 7zPOP STACK INTO R1 

RO ;RETURN TO MAIN PROGRAM 


A BLOCK WITH INCREMENTAL DATA 


RO, @AF ILL 
7;FROM 
[NUMBER OF WORDS 
7STARTING VALUE OF DATA 
; INCREMENT DATA BY 


R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
(RO)+,R1 
(RO) +,R2 
(RO) +,R3 
(RO) +,R4 


: PUSH R1 ON STACK 

7ZzPUSH R2 ON STACK 

> PUSH R3 ON STACK 

:zPUSH R4 ON STACK 

:R1 HAS ADDRESS WHERE DATA iS TO GO 
;R2 HAS NUMBER OF WORDS TO BE FILLED 
:STARTING VALUE OF DATA 

3R4 HAS INCREMENT 


nen DATA WILL bE FILLED 


R3,(R1) FILL DATA 

R4,R3 GET NEXT VALUE Bd DATA 
Re [DECREMENT COUN 

1$ [BRANCH IF ALL NOT DONE 
(SP)+,R4 >:POP STACK INTO R4 
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012603 
012602 


010146 


004714 
022122 


001352 


012605 


035014 
004537 
177776 


000002 


001124 
001126 
002172 


144750 
1771777 
000200 


G 
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(SP) +,R3 
(SP)+,R2 
(SP)+,R1 
RO 


13 
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SEQ 0162 


7;POP STACK INTO R3 
7=POP STACK INTO R2 
73POP STACK INTO R1 
RETURN TO MAIN PROGRAM 


;THIS IS A SUBROUTINE TO COMPARE REGISTERS 


;GOOD DATA IS ALREADY SAVED 
Hag _ IS IN THE REGISTE 


RO, a#COMREG 


RG 
ON RETURN WITH ERROR ‘$GDDA 
; "REGADR' HAS REGISTER ADDRE 


COMREG: 
R1,-(SP) 


OV (RO) ,RO 
— SAVE REGISTERS 
PC, @#PUTREG 
a SAVERE +25. 
:*NOl! COMPARES WILL 
#2,R5 
(R1)+, (R2)+ 
2$ 


002301 


-(R1) ,@#$GDDAT 
-(R2) ,a#$BDDAT 


004500 RHWC(R5) ,@aR 


PC,a@R4 
(R1)+,(R2)+ 
@SWR ,~ (SP) 
#*C600, (SP) 
ASWO7, (SP) + 
3$ 


R3 
1$ 


(SP)+,R5 


IN "SAVERE' 
RS 


:GOOD DATA 
sADDRESS OF ADDRESS TEST DATA 
7 RETURN FOR ERROR 
RETURN FOR GOOD COMPARISON 
o. HAS GOOD DATA, ‘$BDDAT’ HAS BAD DATA 


:7PUSH R1 ON STACK 

:ZPUSH R2 ON STACK 

77PUSH R3 ON STACK 

:ZPUSH R4 ON STACK 

~2PUSH R5 ON STACK 

:R1 HAS ADDRESS OF GOOD DATA 

:R2 HAS ADDRESS OF ADDRESS OF TEST DATA 
;R3 HAS NUMBER OF WORDS 

3R4 HAS RETURN FOR ERROR 

;RO HAS RETURN ON NO ERROR 


SAVE REGISTERS 
,@4AS+1;MAKE UPPER BYTE OF RHAS SAME 
:PRESET R5 TO ~2 
MADE 
; INCREMENT TO INDEX 
ere Poa CONTENTS 


IF 
SAVE GOOD DATA 
SAVE BAD DATA 
EGADR ;SAVE ADDRESS OF FAILING REGISTER 
RETURN TO MAIN PROGRAM 
;TO PRINT ERROR 
;UNDO -(R1) AND -(R2) FOR ERRORS 
GET SWITCH SETTING 
KEEP ONLY SWITCH 7 AND 8 
71S 7 SET AND 8 DOWN 
;BRANCH OUT IF YES 
ARE ALL COMPARES DONE 
;BRAN“') IF NOT COMPLETE 


7:POP STACK INTO R5 








CZ 
C2 
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(SP)+,R4 :zPOP STACK INTO R4 
(SP) +,23 ;¢POP STACK INTO R3 
(SP)+,R2 33POP STACK INTO R2 
(SP)+,R1 3zPOP STACK INTO R1 
RO RETURN TO MAIN PROGRAM 


TEMP STORAGE 
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000000 

005037 177776 
177777 
034246 
004504 
034324 
001110 


001223 
034374 


034462 
034530 


000902 


034700 


001170 
035006 001106 
035012 
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040746 


END OF PASS ROUTINE 


HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 

; THE PROGRAM GOES BACK TO CAN BE CHANGED. 

; THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: 

:1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

32. LOOP ON ERROR SWITCH MUST BE SET 

? Ee MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

444 THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 

STEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 

;THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 

:COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


SAFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
sNORMAL OPERATION WILL CONTINUE. 


TESTAD: 0 
OPERSEL: 


FIRST ADDRESS OF TEST 


MAKE PROCESSOR STATUS ZERO 
:CLEAR PREVIOUS ITEM NUMBER 
-65$ 22 TYPE ASCIZ STRING 

64$ :GET OVER THE ASCIZ 
@ATSTNM,-(SP) :GET READY TO TYPE TEST 
NUMB 


ER 
-67$ >; TYPE ASCIZ STRING 
66$ 7zGET OVER THE ASCIZ 
@4$LPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 


PS 
#-1 ,@APRITEM 


72 TYPE ASCIZ STRING 


“GET OVER THE ASCIZ 
;GET LPADR 

zz TYPE ASCIZ STRING 
7:GET OVER THE ASCIZ 
iz TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


:GET LPERR 


#2, (SP) 
(SP) +,a#$LPADR 
75$ 


(SP)+,a@#$LPERR 
@ASLPADR ,-(SP) 


SEQ 0164 
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oO 
a 


s*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
>*IN MEMORY LOCATIONS TAGED FROM ‘WC'' TO ‘'EC2** 

z*THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
[*AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 

;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


035014 PUTREG: 
RO,-(SP) 33PUSH RO ON STACK 
3zPUSH R1 ON STACK 
33¢PUSH R2 ON STACK 
002172 STARTING ADDRESS OF REGISTERS 
002254 AWC R1 STARTING ADDRESS OF SAVING LOCATIONS 
000022 #RHCC=RHWC+2/2,R2 ;NUMBER OF REG. INTO R2 
+ yo (R1)+ ;SAVE HARDWARE REG. 
10$ 
(SP)+,Re 3zPOP STACK INTO R2 
(SP)+,R1 3sPOP STACK INTO R1 
(SP)+,RO 3=POP STACK INTO RO 
035052 000207 PC 


{ 
i 
{ 
{ 
{ 
{ 
{ 
! 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
i 
{ 
i 
i 
‘ 





ao 
™ 
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:THIS IS A DATA COMMAND SETUP SUBROUTINE 
;THE CALL IS 
: JSR RO, @4RUN 


: C 
-erte Ss 
-BYTE T 
-W D COUNT 
B “BUS ADDRESS 
BAI ;BUS ADDRESS INHIBIT 
FMT22'ECI!HCI *FMT22=1 =16 BIT WORDS 
sECI = ECC CORRECTION INHIBIT 
sHCI = HEADER COMPARE INHIBIT 
: COMMAND ADDRESS 
035054 012077 145132 "i (RO) +,@RHCA : CYLINDER 
145120 (RO)+,@RHDST ; DESIRED SECTOR/ TRACK 
145102 (RO) +, @RHWC D COUNT 
145100 “BUS aoe on 
004616 @AUN 3GET UNIT NO 
SET BUS ADDRESS INHIBIT 
145070 (SP)+, * @RHCS2 J eel NO AND BAI TO RHCS2 
012077 145076 (RO) +. @RHOF FORMAT, ECC INHIBIT, HEADER 
> COMPARE , IF THERE 
035112 013077 145062 @(RO)+,@RHCS1 : COMMAND IN RHCS1 
035116 900200 RO RETURN TO MAIN PROGRAM 


Oo 
™N~ 
w 


CYLINDER 


De. Be Se Se Be Be Be Be 


é 
{ 
é 
‘ 
{ 
{ 
é 
{ 
{ 
{ 
i 
{ 
{ 
{ 
{ 
{ 
| 
{ 
{ 


THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 
3R1 HAS GOOD DATA BUFFER ADDRESS 

;R2 HAS TEST DATA BUFFER ADDRESS 

:R5 HAS ADDRESS OF RETURN ON ERROR 

;R3 HAS NUMBER OF WORDS TO BE COMPARED 

3R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 


CALL IS 
; JSR RO, @#COMPAR 
G ADDRESS OF GOOD DATA 
ADDRESS OF TEST DATA 
NUMBER OF WORDS TO BE COMPARED 
RETURN ON ERROR 
;RETURN ON NO ERROR 


035120 : 
010146 R1,-(SP) 32zPUSH R1 ON STACK 
3=PUSH R2 ON STACK 
: PUSH R3 ON STACK 


; STACK 
“ADDRESS OF GOOD DATA BUFFER 
ADDRESS OF TEST DATA BUFFER 
[NO OF WORDS TO BE COMPARED 
;RETURN ON ERROR 
RETURN ON NO ERROR 

035144 010304 R3,R4 NO OF WORDS TO BE COMPARED 
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035146 
035150 
035154 
035156 


035160 
0351 


26-JUL-78 1 


005204 
010437 
022122 
001417 


014137 


012605 
012604 
012603 
012602 


004502 


001124 


143734 
177177 
000200 


035244 
002200 
035332 
037340 
002170 


002200 


000000 
002200 


035462 
002166 
035534 


002166 
035646 


000004 


1$: 


27-JUL=78 
END OF PASS ROUTINE 


R4 
R4 , @#ERWORD 
(R1)+,(R2)+ 
2$ 


-(R1) ,d#$GDDAT 
-(R2) , @#$BDDAT 


#SWO7, (SP) + 
3$ 
R3 
1$ 

(SP)+,R5 
(SP)+,R4 
(SP)+,R3 


(SP)+,R2 
Slee 


RTS R 
THIS ROUTINE WILL ALLOW 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


65$ 

64$ 
@ARHCS1,-(SP) 
,67$ 

66$ 

PC ,@ASTKINT 
#RHDB , RO 
#22.,R1 
HADTIMO,a44 
oer aes 
a0(SP) 
@ARHCS1,aSP 
asP, (RO) + 

R1 

2$ 

698 

68$ 
@ARPVEC ,- (SP) 


.71$ 
70$ 


(SP) +, d#RPVEC 
73$ 


2 


L 13 
12:32 PAGE 168 


FOR ERROR WORD NO 
COMPARE GOOD WITH TEST DATA 
BRANCH IF GOOD 


:GOOD DATA 

BAD DATA 

;ERROR WORD NO. 

TO PRINT ERROR 

UNDO -(R1) AND -(R2) FOR ERRORS 
SGET SWITCH SETTING 

KEEP ONLY SWITCH 7 AND 8 

71S 7 SET AND 8 RESET 

BRANCH OUT IF YES 


OUNT 
;BRANCH IF ALL NOT DEVICE 


3zPOP STACK INTO R5 
;sPOP STACK INTO R4& 
3:POP STACK INTO R3 
3zPOP STACK INTO R2 
POP STACK INTO R1 
;RETURN TO MAIN PROGRAM 
THE CHANGE OF THE BASE 


3: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
:GET READY TO TYPE OLD BASE 


TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 
: INITIALIZE THE TTY KEYBOARD 


GET STARTING ADDRESS OF REGISTERS 


NUMBER OF REGISTERS 

SET UP TRAP CATCHER FOR TEST 
;NEW ADDRESS 

:NO, JUST OLD ONE RETYPED 

;DO THE ADDRESS ACCESS 

3;GET THE ADDRESS OFFSET 

SAND PLUG IT IN 

7 ONE LESS REGISTER TO DO 

;BUT WE'RE NOT DONE YET! 


zz TYPE ASCIZ STRING 
3;GET OVER THE AS 


C1Z 
GET READY TO TYPE OLD VECTOR ADDRESS 


3TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


: SETUP VECTOR ADDRESS 
>: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


SEQ 0167 


Oo 
™ 
DD 


00 CO 


Mn me Po ORO an on on fn fe OO A oA OR OR OA Oo On OR OA Os OH 1 MN OH ON MH MH MH M9 00 99 0D 00 00 00 00 M0 M0 00 0D 
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7721 035704 013746 002200 MOV @ARHCS1,=(SP) 

7722 035710 104402 TYPOC 

7723 035712 104401 035720 TYPE .75$ 3zTYPE ASCIZ STRING 
7724 035716 000417 BR 74$ 3:GET OVER THE ASCIZ 
7725 035756 013746 002166 MOV @ARPVEC = (SP) 

7726 035762 104402 TYPOC 

7727 035764 104401 035772 TYPE .77$ ie TYPE ASCIZ STRING 
7728 035770 000417 BR 76$ 3;GET OVER THE ASCIZ 
7729 036030 104401 036036 TYPE 279% 33TYPE ASCIZ STRING 
7730 036034 000402 BR 78$ 33GET OVER THE ASCIZ 
7731 036042 104401 036050 TYPE ,81$ zeTYPE ASCIZ STRING 
7732 036046 000424 BR 80$ 3:GET OVER THE ASCIZ 
7733 036120 104401 036126 TYPE ,83$ jh ASCIZ STRING 
7734 036124 000426 BR 82$ ;GET OVER THE ASCIZ 
7735 036202 012746 000200 MOV #RA,-(SP) 

7736 036206 104402 TYPOC 

7737 036210 104401 036216 TYPE -85$ zsTYPE ASCIZ STRING 
7738 036214 000402 BR 84$ 3:GET OVER THE ASCIZ 
7739 +=036222 000137 004710 JMP Q4BEGIN :DO IT OVER AGAIN 
7740 036226 ADT IMO: 

7741 036226 104401 036234 TYPE -65$ 33 TYPE ASCIZ STRING 
7742 036232 000424 BR 64$ 3:GET OVER THE ASCIZ 
7743 036304 022626 CMP (SP) +, (SP)+ RESTORE STACK 

hang 036306 000137 035236 JMP @4BASECH ;AND DO THE QUERY AGAIN! 


8 
8 
8 
8 
g 
g 
8 
a 
g 
a 
g 
g 
a 
é 
8 
é 
g 
é 
é 
g 
g 
g 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
f 
é 
é 
é 
é 
é 
i 
é 
f 
é 
é 
é 
é 
i 
‘ 
{ 
é 
{ 
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RPVECT: 
ie og 4 036320 sz TYPE ASCIZ STRING 
BR 64$ 3:GET OVER THE ASCIZ 
YPOC s TYPE FROM PC 
036312 143566 as #RPVECT ,@RPVEC ;RESTORE TRAP RPO4 VECTOR 


; CHANGE TO CONTINUE 


mn oT on an Wn an on MH om 0.0) 1 1p 9) 00 9D OM 1 00 OD 
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26-JUL=78 10:07 


000400 
142452 
001103 
001115 
001000 
001110 


001103 
001212 


004000 
001100 


001104 
001212 


001106 


MACY11 30A(1052) 


142526 


000004 


142460 
001102 


001103 
142422 
001106 


142370 


001104 


001104 
001212 


001115 
142276 


1$: 


SXTSTR: 


1$: 


MO 
$SVLAD: 
MO 


27=JUL=78 
C LIBRARY ROUTINES 


-SBTTL SYSMAC LIBRARY ROUTINES 


#BIT14,aSWR 
SOVER 


6$ 

@FERRVEC ,-(SP) 
#5$ arERRVEC 
a#1770 

(SP)+, CRP ERRVEC 
$SVLAD 
(SP) +, (SP)+ 
(SP) +, @MERRVEC 
#B1T08,aSWR 
2$ 
aSwWR,STSTNM 
SOVER 

SERFLG 

3$ 
eternal 
#BI1TO9, aSWR 
4$ 
$LPERR,$LPADR 
SOVER 

SERFLG 

$TIMES 

1$ 
#B1T11,aSWR 
1$ 


$PASS 
1$ 


$ICNT 
$TIMES,SICNT 
SOVER 


#1,$I1CNT 

SMXCNT ,STIMES 
STSTNM 

(SP) ,$LPADR 
(SP) ,SLPERR 
SESCAPE 

#1, SERMA 

STSTNM, aDISPLAY 
S$LPADR, (SP) 


B 14 
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SEQ 0170 


::TEST FOR CHANGE IN SOFT-SWR 
:LOOP ON PRESENT TEST? 

iYES IF SW14=1 

::1F RUNNING ON THE “'XOR"’ TESTER CHANGE 
:SAVE THE CONTENTS OF THE ERROR VECTOR 
33SET FOR TIMEOUT 


OUT ON XOR? 
+ : RESTORE THE ERROR VECTOR 
3:GO TO THE NEXT TEST 
::CLEAR THE STACK AFTER A TIME OUT 
7 RESTORE THE ERROR VECTOR 
;;LOOP ON THE PRESENT TEST 
SP SPEC. TEST? 


;BR IF NO 
:0N THE RIGHT TEST? 
; IF YES 
: HAS AN ERROR OCCURRED? 
;;BR IF NO 
2 7MAX. ERRORS FOR THIS TEST OCCURRED? 


IF NO 
LOOP ON ERROR? 
77BR IF NO 
7:SET LOOP ADDRESS TO LAST SCOPE 


7:ZERO THE ERROR FLAG 
:; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
: ESCAPE TO THE NEXT TEST 
Ce a 
silF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
:: INCREMENT ITERATION COUNT 
; CHECK THE NUMBER OF ITERATIONS MADE 
+= BR IF MORE ITERATION REQUIRED 
+ :REINITIALIZE THE ITERATION COUNTER 
;SET NUMBER OF ITERATIONS TO DO 
+ COUNT TEST NUMBERS 
7: SAVE SCOPE LOOP ADDRESS 
: SAVE ERROR LOOP ADDRESS 
::CLEAR THE ESCAPE FROM ERROR ADDRESS 
: ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
; DISPLAY TEST NUMBER 
: FUDGE RETURN ADDRESS 
+ FIXES PS 
7 7MAX. NUMBER OF ITERATIONS 


SWR<7:0> 





non) 
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020200 
000020 


000055 000001 
037070 
000040 


037060 


177777 


000010 


177777 + 177776 


037070 
000002 000004 


27=JUL-78 


RO,-(SP) 


6$ 
1(SP) ,~1(R3) 
#'0,R2 


, R2 
R2,(R3)+ 
(RO) + 
RO,410 
2$ 


8$ 

R5,R2 

6$ 

(SP) + 

9$ 

-1(SP) ,-2(R3) 
(R3) 
(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

, SDBLK 
2(SP) ,4(SP) 
(SP)+, (SP) 


C 14 
12:32 PAGE 172 
ONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SEQ 0171 


;7PUSH RO ON STACK 
7zPUSH R1 ON STACK 
77PUSH R2 ON STACK 

R3 ON STACK 


SET BLANK SWITCH AND SIGN 
SIGET THE INPUT NUMBER 


3 ZERO THE CONSTANTS INDEX 
TUP THE OUTPUT POINTER 
::SET THE FIRST CHARACTER TO A BLANK 
7;CLEAR THE BCD NUMBER 
7:GET THE CONSTANT 
32:FORM THIS BCD DIGIT 


;:;BR IF DONE 
72 INCREASE THE BCD DIGIT BY 1 


+ ¢ADD BACK THE CONSTANT 
:CHECK IF BCD DIGIT=0 
7 3FALL THROUGH IF 0 
:STILL DOING LEADING 0°S? 
> BR IF YES 
72MSD? 
;2BR IF NO 
7: YES--SET THE SIGN 
7 zMAKE THE BCD DIGIT ASCII 
: MAKE IT A SPACE IF NOT ALREADY A DIGIT 
:;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
:zJUST INCREMENTING 
:: CHECK THE TABLE INDEX 
::GO DO THE NEXT DIGIT 


C E TO ASCII 
PIMAS THE LSD THE FIRST NON-ZERO? 
2s YES~~SET THE SIGN FOR TYPING 
:SET THE TERMINATOR 
::POP STACK INTO R5 
3:POP STACK INTO R3 
3;POP STACK INTO R2 
3zPOP STACK INTO R1 
32POP STACK INTO RO 
7zNOW TYPE THE NUMBER 
;zADJUST THE STACK 


RETURN TO USER 








an 
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CZRJJC.P11 


037316 


105737 
100002 


001157 


037314 


037250 
001156 


001154 
000001 


037250 
037314 


000040 
037250 
000007 


141674 
000002 
000015 


037314 
000012 


MACY11 30A(1052) 
TYPE ROUTI 


037314 


141666 
000002 


000002 


$TYPE: 


1$: 
2$: 


$TYPEC: 


1$: 


INCB 
$CHARCNT : . WORD 


$TYPEX: RTS 


D1 
27-JUL=78 12:32 
NE 


STPFLG 
1$ 


3$ 

RO,-(SP) 
@2(SP) ,RO 
(RO)+,=(SP) 
4$ 


(SP) + 
(SP)+,RO 
#2, (SP) 


HT, (SP) 
8$ 

gdh et: 
(SP) + 


SCHARCNT 
2$ 


PC,$TYPEC 
earn’ 


2 
$SNULL ,- (SP) 
1(SP) 


6$ 
PC, $TYPEC 
SCHARCNT 
7$ 


#’ (SP) 
PC, $TYPEC 
#7 ,SCHARCNT 
9$ 


(SP) + 
2$ 


a$TPS 

STYPEC 
2(SP) ,aSTPB 
+ ge ,2(SP) 


ALF ,2(SP) 
$TYPEX 
(PC)+ 

0 

PC 


4 
PAGE 173 


31S ee A TERMINAL ? 
HALT HERE IF NO TERMINAL 
a VE 
; SAVE RO 
GET ADDRESS OF ASCIZ STRING 
PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 
32 1F TERMINATOR POP IT OFF THE STACK 
; RESTORE RO 
; ADJUST RETURN PC 
: RETURN 


; BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


7:POP <CR><LF> EQUIV 
7: TYPE A CR AND LF 


ta CHARACTER COUNT 

;GET NEXT CHARACTER 

:GO TYPE THIS CHARACTER 

:IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

;GET # OF FILLER CHARS. NEEDED 

DOES A NULL NEED TO BE TY°ED? 

;BR IF NO=-GO POP THE NULL OFF OF STACK 
$260 TYPE A NULL 
:2D0 NOT COUNT AS A COUNT 


; LOOP 
z REPLACE oy WITH SPACE 

s TYPE A SPACE 

+: BRANCH TF NOT AT 
221A STOP 

; sPOP SPACE OFF STACK 

:GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3721S CHARACTER A CARRIAGE RETURN? 
oooeeenn IF NO 

—— CHARACTER COUNT 


2 EX 
iiIs CHARACTER A LINE FEED? 
CH IF YES 


[COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 


SEQ 0172 





aa 
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CZRJJC.P11 
037320 


100121 





037320 


141532 
177600 
040377 
037340 
034226 
000007 
000176 


000011 
001216 


000023 
141430 
141422 
141416 


037320 
000140 


000175 
000040 
177520 
037322 
037322 
037326 
000176 


141302 


MACY11 


037322 
037324 
000060 
000062 


141536 


001140 
037320 


141374 


037337 
037322 
001140 


E 14 
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Y INPUT ROUTI 


STKCNT: .WORD 
$TKQIN: .WORD 


7 NUMBER OF ITEMS IN QUEUE 
3; INPUT POINTER 
$TKQOUT: .WORD + OUTPUT POINTER 
STKINT: CLR STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 

MOV #STKQSRT ,STKOQIN : :MOVE THE STARTING ADDRESS OF THE 
STKQIN,$STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
ASTKSRV ,AATKVEC is INITIALIZE a KEYBOARD VECTOR 


$TKSRY: 
8B 


a al es BR’ 


a$TKB 
#100,a$TKS 


PC 
a$TkB,-(SP) 
#*C177, (SP) 
(SP) #3 
1$ 


,SCNTLC 
PC, STKINT 
(SP) + 
OPERSEL 
(SP) ,A7 


2$ 
ASWREG, SWR 
6$ 

#9. ,$TKCNT 
3$ 

, SBELL 
(SP) + 

5$ 

(SP) ,423 
32$ 

a$sTKS 
(SP) + 
a$sTKS 

31$ 
@$TKB,- (SP) 


#*C177, (SP) 
(SP)+,421 


31$ 
#100, a$TKS 


$TKCNT 

H Scag 
(SP) ,4175 
4$ 


#40, (SP) 
(SP) +, a$TKQIN 


$TKQIN 

STKQIN,#STKQEND : 

5$ IF NO 

#$TKOSRT ,STKQIN :7RESET THE POINTER 
RETURN 


ASWREG , SWR 
15$ 

a$TKS 

15$ 


CLEAR DONE F 
> ENABLE TTY KEYBOARD IN: ERRUPT 
; RETURN TO CALLER 
zzPICKUP THE CHARACTER 
2eSTRIP THE JUNK 

zIS IT A CONTROL C? 
* BRANCH IF NO 
sz TYPE A CONTROL=-C (“C) 
Zr INIT THE KEYBOARD 
7 CLEAN UP STACK 
7; CONTROL C RESTART 
zz1S IT A CONTROL G? 
; BRANCH IF NO 
z21S SOFT-SWR SELECTED? 
A TO SWR CHANGE 

3S a Pg FULL? 


[BRANCH 
: RING THE. ry BELL 
;CLEAN CHARACTER OFF OF STACK 


; EXIT 
z355 IT A CONTROL-S? 
CH IF NO 
; DISABLE TTY KEYBOARD INTERRUPTS 
;CLEAN CHAR OFF STACK 
WAIT FOR A CHAR 
:;LOOP UNTIL ITS THERE 
22GET THE CHARACTER 
2 sMAKE IT 7-BIT ASCII 
:1S IT A CONTROL-Q? 
* BRANCH IF NO 
:SREENABLE TTY KEYBOARD INTERRUPTS 


RETURN 
ZCOUNT THIS CHARACTER 
sis ares UPPER CASE? 


IF YES 
SIS IT A SPECIAL CHAR? 
«BRANCH IF YES 
MAKE IT UPPER CASE 
: AND PUT IT IN QUEUE 
; UPDATE THE POINTER 
:G0 Ah THE END? 


1S THE ys ~SWR SELECTED 
STEXIT IF N 
:;1S A CHAR Oni Yieed 
sr: 1F NOT, EXIT 





Ci 
CG 
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C2RJJC.P11 


26-JUL-78 
117746 


10:07 
141276 
177600 
009007 
001134 


037340 


049427 


141200 
141174 
177600 
000003 
040377 


000006 
001135 


000100 


037250 
000060 


000067 


000060 
000002 


MACY11 oe eee 


000001 


001135 


000001 
141132 


141060 


000001 
141036 


27=JUL=78 


INPUT ROUTINE 


6$: 


SGTSwR: 


19$: 
7$: 


a$TKB,-(SP) 
#°C177, (SP) 
(SP) ff 


2$ 
$AUTOB , #1 
2$ 

(SP) + 

PC, STKINT 
a$TKS 
#1,$INTAG 
-SCNTLG 
~SMSWR 
SWREG,-(SP) 


- SMNEW 
-(SP) 

- (SP) 

a$TKS 

7$ 
@$TKB,-(SP) 
#*C177, (SP) 
© ae 


-SCNTLC 
#6,SP 
$SINTAG,#1 
8$ 

#100, a$TKS 


11$ 
2(SP) ,@SWR 
oP 


-$CRLF 
SINTAG, #1 
15$ 


#100, a$TKS 


PC ,$TYPEC 
(SP) ,469 
18$ 


(SP) ,467 
18$ 
1 hatte 


F 14 
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SEQ 0774 


ssves 
siMAKE IT 7-BIT ASCII 
iI IT A CONTROL-G? 
zIF NOT, PUT IT IN THE TTY QUELE 
+ SARE WE RUNNING IN AUTO=-MODE? 
* BRANCH IF YES 
7zCLEAR CONTROL<G OFF STACK 
szFLUSH THE TTY INPUT QUEUE 
eoeey Gat TTY KEYBOARD INTERRUPTS 
;SET INTERRUPT MODE oo sta: 
;;ECHO THE CONTROL-G (*G) 
; TYPE CURRENT CONTENTS 
SAVE SWREG FOR TYPEOUT 
32GO TYPE=-OCTAL ASCII‘(ALL DIGITS) 
7 PROMPT FOR NEW SWR 
;:CLEAR COUNTER 
77 THE NEW SWR 
:7 CHAR THERE? 
sz1F NOT TRY AGAIN 
2 PICK UP CHAR 
: =MAKE IT 7-BIT ASCII 
31S IT A CONTROL-C? 
+: BRANCH IF NOT 
YES, ECHO CONTROL=-C (“*C) 
3zCLEAN UP STACK 
; sREENABLE TTY KEYBOARD INTERRUPTS? 
; BRANCH IF NO 
;ALLOW TTY mB yey INTERRUPTS 
** CONTROL- C RESTAR 
21S IT A ConNTiOk aul? 
;BRANCH IF NOT 
sc¥85. ECHO S ettegg (*U) 
GNORE PREVIOUS INPUT 
7zLET'S TRY IT AGAIN 
zi1S IT A <CR>? 


;BRANCH IF NO 
as ken eh FIRST CHAR? 
77 SAVE NEW SWR 
3:CLEAR UP STACK 
;ZECHO <CR> AND <LF> 
: : bs. KBD INTERRUPTS? 


N 
TTY KBD INTERRUPTS 


F YES 


; YES 
:STRIP-OFF ASCII 
HIS Mg ge Fs CHAR 
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000002 
177776 
001222 
000004 
000004 
040214 
037320 
037320 


037324 
037326 


040366 
040377 


000177 
001222 
040364 
040364 
000015 
177777 
001224 


000004 
040366 


006503 


000040 


000002 


000004 
037337 
037324 


000002 
000004 


000012 


000 
000012 
020122 


053505 


G 14 
30A(1052) 27=JUL-78 12:32 PAGE 176 SEQ 0175 


TTY INPUT ROUTINE 


17$: 2(SP) 73KEEP COUNT OF CHAR 
tassel ; EW CHAR 


BR $ . 
18$: ,-SQUES zi TYPE ?<CR><LF> 
B sz SIMULATE CONTROL=U 
$RDCHR: (SP) ,=(SP) ; PUSH DOWN THE PC AND 
MO ph aL ed PS 
S 


at 
;GET READY FOR A CHARACTER 


- (SP) ; 
#64$,-(SP) >:PUT NEW PC ON 

;zPOP NEW PC AND PS 
pager 3zWAIT ON A CHARACTER 


STKCNT ; sDECREMENT THE COUNTER 
@$TKQOUT ,4( SP) GET ONE CHARACTER 

$TKQOUT : [UPDATE THE POINTER 
STKQOUT ,#STKQEND 33D1D IT GO OFF OF THE END? 


2$ ; ;BRANCH IF NO 
#$TKQSRT ,STKQOUT eon THE POINTER 


R3,-(SP) sSAVE R3 
ASTTYIN,R3 :GET ADDRESS 
ASTTYINGS. RS (BUFFER FULL? 
4$ :=BR IF YES 
72GO READ ONE CHARACTER FROM THE TTY 
(SP) +, (R3) ::GET CHARACTER 
Ed se: ::1S IT A RUBOUT 


* $QUES ; 
i$ :3CLEAR THE BUFFER AND LOOP 
(R3) ,9$ TECHO THE CHARACTER 


I$ 
#15,(R3)+ 37 CHECK FOR RETURN 
2$ 3;LOOP IF NOT RETURN 
-1(R3) 3:CLEAR RETURN (THE 15) 
-$LF 7: TYPE A LINE FEED 
(SP)+,R3 7 RESTORE R3 
(SP) ,-(SP) 2 ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) ue FIRST ASCII CHARACTER ON IT 
M$TTYIN,4(SP) 
; sRETURN 


9$: . >: STORAGE FOR ASCII CHAR. TO TYPE 
‘ NATOR 

$CNTLC: . /*C/<15><12> 

$CNTLU: . /*U/<15><12> -: 

$CNILG: . /*G/<15><12> :: CONTROL ‘GC’ 

SMSWR: .ASCIZ <15><12>/SWR = 

SMNEW: .ASCIZ / NEW = 


;FROM THE TTY 





CZ 
CZ 


CZRJJCO, RPOS/5/6 FCTNL 
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S$RDOCT: MOV 
000004 000002 MOV 


040566 


177770 


000012 
040576 


4$: 
5$: 


001222 
BR 
$HIOCT: .WORD 


— MACY11 yay 27-JUL-78 
READ AN OCTAL NUMBER FROM THE TTY 


(SP) ,=(SP) 
4(SP) ,c(SP) 


RO,-(SP) 
R1,-(SP) 
R2,-(SP) 


(SP)+,RO 
RO,5$ 
R1 


Re 
(RO) +,=(SP) 


R2 

#°C7, (SP) 
(SP)+,R1 
2$ 

(SP) + 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 
(SP) +,RO 


(SP) + 
(RQ) 


0 
, SQUES 
1$ 
0 


H 14 
12:32 PAGE 177 SEQ 0176 


ona SPACE FOR THE 
3. INPUT NUMBER 


; ¢PUSH RO ON STACK 


; READ AN ASCIZ LINE 

:iGET ADDRESS OF 1ST CHARACTER 
;ZAND SAVE IT 

:zCLEAR DATA WORD 


Sit e THIS peed tae 
IF ZERO GET 
; 7MAKE SURE THIS "CHARACTER 
:IS AN OCTAL DIGIT 


izSTRIP THE ASCII JUNK 
+r IN THIS DIGIT 


oe L oP 
32CLEAN TERMINATOR FROM STACK 
7zSAVE THE RESULT 


;zPOP STACK INTO R2 

:zPOP STACK INTO R1 

:z;POP STACK INTO RO 

oe TURN 

sz CLEAN PARTIAL FROM STACK 
3zSET A TERMINATOR 

:: TYPE UP THRU THE BAD CHAR. 


si i “cR** g “_e" 
“TRY AGAIN 
STMIGH ORDER BITS GO HERE 





CZ 
CZ 
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CZRJJC.P11 26-JUL-78 10: ERROR HANDLER ROUTINE 


TEST FOR ae IN SOF T=SWR 
MOY #-1 ,aATRFLGS “SET ERROR FLAG 
7$: SERFLG ::SET THE ERROR FLAG 
7$ ON'T LET THE FLAG GO TO ZERO 
601102 $TSTNM,@DISPLAY ; DISPLAY TEST NUMBER AND ERROR FLAG 
002000 #B1T10,aSWR : :BELL ON ERROR? 
1$ NO = SKIP 
001216 , SBELL ; :RING BELL 
001112 : SERTTL COUNT THE NUMBER OF ERRORS 
001116 (SP) , SERRPC Z:GET ADDRESS OF ERROR INSTRUCTION 
000002 : #2, SERRPC 
140234 @SERRPC ,SITEMB aye x AND SAVE THE ERROR ITEM CODE 
020000 140246 #B1T13,aSWR : SKIP iekeure IF SET 
20$ :SKIP TYPEOUT 
040750 PC, SERRTYP :3¢0 TO USER ERROR ROUT INE 
001223 -$SCRLF 
140230 : @SwWR ;;HALT ON ERROR 
3$ 7zSKIP IF CONTINUE 
;zHALT ON ERROR! 
33 TEST FOR CHANGE IN SOF T-SWR 
001000 140214 : oo ;;LOOP ON ERROR SWITCH SET? 


3:BR_ IF NO 
001110 $LPERR, (SP) 3zFUDGE RETURN FOR LOOPING 
001214 : $SESCAPE Pe FOR AN ESCAPE ADDRESS 


5$ 23 NONE 
001214 $SESCAPE , (SP) :zFUDGE RETURN ADDRESS FOR ESCAPE 
7 RETURN 





J 14 
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. ERROR HANDLER ROUTINE 


CZRJJC.P11 

8132 

8133 

8134 

8135 

8136 

8137 

8138 

8139 

8140 

8141 

8142 

8143 

8144 

8145 

8146 

8147 

8148 040746 
8149 

8150 040750 
8151 040754 
8152 040760 
8153 040764 
8154 040766 
8155 040770 
8156 

8157 040774 
8158 040774 
8159 041000 
8160 041016 
8161 041022 
8162 041024 
8163 941030 
8164 1046 
8165 041052 
8166 041054 
8167 041060 
8168 041076 
8169 041102 
8170 041104 
8171 041110 
8172 041126 
8173 041132 
8174 041134 
8175 041140 
8176 041156 
8177 041162 
8178 041164 
8179 041170 
8180 041206 
8181 041212 
8182 041214 
8183 041220 
8184 0412 
8185 041242 
8186 041244 
8187 041250 


26-JUL-78 10:07 


140164 
177277 
000100 


041710 


041002 
002254 
041032 
002256 
041062 
002260 
041112 
002262 
041142 
002304 
041172 
002264 
041222 
002270 
041252 


LL AAA ARAAAAKRARRKKE PARR RRSSRARSSASLASASASRSR SSAA SSSR SS ESSA S SARS S SSS 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


3*THIS ROUTINE USES THE ‘ITEM CONTROL BYTE’’ ($ITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
:*IT IS A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC. 

;*WITH ONLY MINOR CHANGES 
z*FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN 

*ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
z*SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 

;*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 

;*AND NOT THE ERROR MESSAGE AND HEADER. 


PRITEM: 0 
SERRTYP: MOV 
B 


1$: JMP 
2s: 


@SWR, = (SP) 
#*C500, (SP) 
amas supe 


2$ 
@ATYPERR 


-65$ 

64$ 

aAWC (SP) 
-67$ 

66$ 
@ABA , - (SP) 
-69$ 

68$ 
@4CS2,-(SP) 
.71$ 

70$ 
a4CS1,-(SP) 
.73$ 

72$ 
a4DS1,-(SP) 
.75$ 

74$ 
@4ER1,-(SP) 
.77$ 

76$ 
Q#ER2,~-(SP) 


.79$ 
78$ 


IT THEN OBTAINS, FROM THE “ERROR TABLE*’ ($ERRTB), 


sPREVIOUS ITEM NO. LOCATION 


:GET SWITCH SETTING 

KEEP ONLY SWITCH 8 AND 6 

31S 6 SET AND 8 RESET 

7; IF NOT BRANCH 

BRANCH IF SW 6 IS SET AND 8 RESET 

; JUMP IF SW 8 IS SET 

:OR IF SW 8 IS RESET AND SW 6 IS RESET 


3: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
:GET READY TO TYPE RHWC CONTENTS 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHBA CONTENTS 


i:;TYPE ASCIZ STRING 
3:GET OVER THE ASC1Z 
;GET READY TO TYPE RHCS2 CONTENTS 


3zTYPE ASCIZ STRING 
3iGET OVER THE ASCIZ 
;GET READY TO TYPE RHCS1 CONTENTS 


zi TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHDS1 CONTENTS 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHER1 CONTENTS 


:i TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHER2 CONTENTS 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


SEQ 0178 
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RRR RK 

— 3 od — 

YX 
soo 


R &R 
<< abad 
~~ 
mM NON 
ao £O 


CTRLR2 
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013746 
104402 


005037 
104401 
010046 
005000 
153700 
001004 
013746 


002276 
041302 
002266 
041332 
002274 
041362 
002300 
041412 
002272 
041442 
002302 
041472 
002320 
041522 


002316 


041552 
002312 
041602 
002314 
041632 
002306 
041662 
002310 
040746 


001223 


001114 


001116 


MACY11 30A(1052) 27=JUL-78 


V @FER3,-(SP) 
TYPOC 
TYPE ,81$ 
BR 80$ 
MOV @ADST,- (SP) 
TYPOC 
TYPE ,83$ 
BR 
MOV @ACA,-(SP) 
TYPOC 
TYPE ,85$ 
BR 84$ 
MOV @AAS ,- (SP) 
TYPOC 
TYPE ,o7$ 
HY 86$ 
MOV @AOF ,- (SP) 
TYPOC 
TYPE 89S 
BR 88$ 
MOV AMR ,- (SP) 
TYPOC 
TYPE ,91$ 
BR 90$ 
MOV @ALA,-(SP) 
TYPOC 
TYPE 93 
BR 92$ 
MOV @FCC,-(SP) 
TYPOC 
TYPE 95$ 
BR 94$ 
MOV @FEC1,-(SP) 
TYPOC 
TYPE 97S 
BR 96$ 
MOV a@F#EC2,-(SP) 
TYPOC 
TYPE ,99$ 
BR 98$ 
MOV @ADT,-(SP) 
TYPOC 
TYPE 101% 
BR 100$ 
MOV @ASN,-(SP) 
TYPOC 
CLR @APRITEM 
TYPERR: 
TYPE /SCRLF 
MOV RO,-(SP) 
CLR RO 
BISB a4$1TEMB,RO 
BNE 1$ 
MOV $SERRPC ,-(SP) 


14 
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ERROR MESSAGE TYPEOUT ROUTINE 


SEQ 0179 


GET READY TO TYPE RHER3 CONTENTS 


sz TYPE ASCIZ STRING 
:iGET OVER THE ASCIZ 
;GET READY TO TYPE RHDST CONTENTS 


s TYPE ASCIZ STRING 
:iGET OVER THE ASCIZ 
;GET READY TO TYPE RHCA 


3zTYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
;GET READY TO TYPE RHAS 


rz TYPE ASCIZ STRING 
:7:GET OVER THE ASCIZ 
;GET READY TO TYPE RHOF 


sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
GET READY TO TYPE RHMR 


;; TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 
;GET READY TO TYPE RHLA 


ii TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
:GET READY TO TYPE RHCC 


73 TYPE ASCIZ STRING 
3iGET OVER THE ASCIZ 
:GET READY TO TYPE RHEC1 CONTENTS 


sz TYPE ASCIZ STRING 
:7GET OVER THE ASCIZ 
:GET READY TO TYPE RHEC2 CONTENTS 


22 TYPE ASCIZ ere: 
3GET OVER THE ASCIZ 
:GET READY TO TYPE RHDT CONTENTS 


zi TYPE ASCIZ STRING 
:iGET OVER THE ASCIZ 
:GET READY TO TYPE RHSN CONTENTS 


CLEAR PREVIOUS ERROR ITEM 


CONTENTS 
CONTENTS 
CONTENTS 
CONTENTS 
CONTENTS 


CONTENTS 


Pig yy RETURN’’ & “LINE FEED" 
:PICKUP THE ITEM INDEX 
71F ITEM NUMBER IS ZERO, JUST 


TYPE THE PC OF THE ERROR 
SAVE SERRPC FOR TYPEOUT 





L 14 
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C2RJJC.P11 26~JUL=78 10:07 ERROR MESSAGE TYPEOUT ROUTINE 


oO 
™ 
> oe) 


ERROR ADDRESS 
;GO Bt Wie tine. ASCII(ALL DIGITS) 


GET OU 
ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 


RO 
001226 #$ERRTB,RO FORM TABLE POINTER 
040746 RO, a4PRITEM WAS PREVIOUS ERROR SAME 
13$ [BRANCH IF NOT 
yeaa ;POP RO OVER EM AND DH 


5 
040746 : RO, a4PRITEM SAVE NEW ERROR ITEM 
042000 (RO)+,2$ ZPICKUP ‘ERROR MESSAGE** POINTER 
3$ sSKIP TYPEOUT IF NO POINTER 
sTYPE THE “ERROR ME SSAGE** 
: ‘ 0 7" ERROR MESSAGE** POINTER et HERE 
001223 -$SCRLF :"'CARRIAGE RETURN'* & "LIN FEED" 
042016 : (RO) +,4$ [PICKUP ‘DATA HEADER'' POINTER 
5$ SKIP TYPEOUT IF 0 
sTYPE THE ‘DATA HEADER™’ 
: ‘ 0 s"'DATA HEADER'' POINTER GOES HERE 
001223 -$CRLF : CARRIAGE RETURN'' & ‘LINE FEED*' 
R1,~(SP) SAVE R 
(RO)+,R1 ‘PICKUP. "DATA TABLE’ POINTER 
9$ :BR_IF NO DATA TO BE TYPED 
fae fe RO :PICKUP "DATA FORMAT’' POINTER 
(RO) + :"OCTAL"' OR ‘DECIMAL’ 
:BR IF DECIMAL 


7$ 
@(R1)+,-(SP) SAVE a(R1)+ FOR TYPE 


OUT 
8$ 3GO TYPE--OCTAL ASCIICALL DIGITS) 


@(R1)+,-(SP) SAVE a(R1)+ FOR TYPEOUT 
7GO TYPE--DECIMAL ASCII WITH SIGN 
(R1) 71S THERE ANOTHER NUMBER? 
9$ ;BR_ IF NO 
042072 ,11$ TYPE TWO(2) SPACES 
BR 6$ OoP 


(SP)+,R1 RESTORE R1 
(SP)+,RO Bmp tn RETURN’’ & "LINE FEED" 
RTS PC RETU 
AMI fF TuOCe) SPACES 
042076 -EVEN 


ee ea a se ee ee en es nf fn fn A OM OR ee OO MO MO OO Ms MO OH OW OW 1H MH 1H (Hs ws 1 1 1 9 1 7 
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CZRJJC.P11 


26-JUL-78 10:07 ERROR MESSAGE TYPEOUT ROUTINE 


$TYPOS: MOV @(SP) ,--(SP) 
042321 MOVB 1(SP) , SOF ILL 
(SP)+,$0MODE +1 


B 
000001 042321 $TYPOC: 
000006 042323 
000005 042320 $TYPON: 
042323 SOMODE+1 R4 
000006 #6 RG 
R4 , SOMODE 


SOF ILL RS 
000012  chisegi 


042322 
177770 


000060 


042320 


000002 000004 


33PICKUP THE MODE 

3;LOAD ZERO FILL SWITCH 

7 NUMBER OF DIGITS TO TYPE 
; ADJUST RETURN ADDRESS 


7sSET THE ZERO FILL ”m 
33SET FOR SIX(6) DIG 
ee a ITERATION COUNT 


“. R5 
7:GET THE NUMBER OF DIGITS TO TYPE 


7; SUBTRACT IT FOR MAX. ALLOWED 
7zSAVE IT FOR USE 

3:GET THE ZERO FILL SWITCH 
3¢PICKUP THE INPUT NUMBER 
3-CLEAR THE OUTPUT WORD 
7;ROTATE MSB INTO ‘'C’’ 


::GO DO MSB 
73FORM THIS DIGIT 


3:GET LSB OF THIS DIGIT 
7TYPE THIS DIGIT? 


: 3BR IF NO 
;GET RID OF JUNK 
+: TEST FOR 0 
ge THIS 0? 
IF YES 


= DON' T SUPPRESS ANYMORE 0'S 
:zMAKE THIS DIGIT ASCII 
zzMAKE ASCII IF NOT ALREADY 
72 SAVE FOR TYPING 
::GO TYPE THIS DIGIT 
;;COUNT BY 1 
22BR IF MORE TO DO 
;BR IF DONE 
+: INSURE LAST DIGIT ISN'T A BLANK 
2260 DO i ned DIGIT 


;RESTORE R3 
7:SET THE STACK FOR RETURNING 


7 RETURN 

;: STORAGE FOR ASCII DIGIT 

77 TERMINATOR FOR TYPE ROUTINE 
3zO0CTAL DIGIT COUNTER 

77ZERO FILL SWITCH 

; NUMBER OF DIGITS TO TYPE 





SEQ 0181 


oO 
MN 
Ps ] 


CZF 


a0 oD 


RL AMAL LRA ROA ADA OO OO oe ON OH On OH ON ON OH ON 9 9 OH OD 9 on 1 1 1 1) 1 9 os 1 0 0 0 OOo 


CZRJJCO, RPOS/S/6 FCTNL CTRLR2 
CZRJJC.P11 


26-JUL-78 10:07 


010046 
016600 000002 
005740 
111000 
006300 
016000 042360 
000200 


011646 
016666 000004 
000002 


040440 
033574 


N 
MACY11 30A(1052) 27=JUL=78 12:32 
TRAP DECODER 


000002 


STRAP: 


$TRAP2: 


STRPAD: to 


WAIT.T 


RO,-(SP) 
2(SP) ,RO 
-(RO) 

(RO) ,RO 


R 
$TRPAD (RO) ,RO 
RO 


(SP) ,=(SP) 
4(SP) ,2(SP) 


$STRAP2 
3¢CALL=TYPE 
33 CALL=TYPOC 
7; CALL=TYPOS 
3; CALL=TYPON 
32CALL=TYPDS 
32 CALL=GTSWR 
3; CALL=CKSWR 
3: CALL=RDCHR 
3; CALL=RDLIN 
32 CALL=RDOCT 
32 CALL=WAT 


14 
PAGE 183 SEQ 0182 


77 SAVE RO 

: GET TRAP ADDRESS 

; BACKUP BY 2 

:;GET RIGHT BYTE OF TRAP 
:ZPOSITION FOR INDEXING 
sz INDEX TO TABLE 

::GO TO ROUTINE 

;zMOVE THE PC DOWN 
;zMOVE THE PSW DOWN 

; RESTORE THE PSW 


TRAP+1(104401) TTY TYPEOUT ROUTINE 

TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
TRAP+6(104406) GET SOFT-SWR SETTING 

TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
TRAP+13(104413) DONT ADD ABOVE THIS TRAP 


9 
9 
9 
S 
9 
9 
9 
9 
9 
9 
9 
| 
S 
$ 
9 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
S 
| 
S 
S 
S 
S 
S 
S 
§ 
§ 
5 
‘ 
S 
§ 
§ 
{ 
{ 
{ 
{ 
§ 
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012737 


CTRLR2 
10:07 


000024 


042554 
000340 000026 


042410 
0600340 


000024 
000026 


047520 042527 


000122 


MACY11 30A(1052) 
POWER D 


SPWRMG: . 
$SPWRAD : 
$ILLUP: 


$SAVR6: 0 
$SPOWER: 


27=JUL-78 
OWN AND UP ROU 


-ASCIZ 


SEQ 0183 


B 15 
Nein PAGE 184 
TINES 


#SILLUP ,@MPWRVEC ;; SET 
#340, aPWRVEC +2 2 PRIO:7 


- FAST UP 


STACK 
STACK 
STACK 
STACK 
STACK 
5 ON STACK 
@SWR ON STACK 


zzSAVE SP 
#SPWRUP, @FPWRVEC ;;SET UP VECTOR 


-2 ; HANG UP 
#$ILLUP, aePWRVEC >:SET FOR FAST DUWN 
SSAVR6, SP si:GET SP 
WAIT LOOP FOR THE TTY 
szWAIT FOR THE INC 
e: WORD 


INTO @SWR 
INTO R5 
INTO R4& 
INTO R3 


1$ 
(SP)+,aSWR 
(SP)+,R5 
(SP) +,R4 
(SP)+,R3 
(SP)+,R2 INTO R2 
(SP)+,R1 ss INTO R1 
(SP)+,RO ; «POP ACK INTO RO 
#SPWRDN,@APWRVEC :;SET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC+2 stPRI 0:7 

;REPORT THE POWER FAILURE 
$SPOWER 7:POWER FAIL MESSAGE POINTER 
(PC)+, (SP) 7 RESTART AT BEGIN 
BEGIN 7zRESTART ADDRESS 


32 THE POWER UP SEQUENCE WAS STARTED 
4 3: BEFORE THE POWER DOWN WAS COMPLETE 
3zPUT THE SP HERE 
<15><12>' POWER’ 





CZRJJCO, RPOG/S/6 FCTNL CTRLR2 30A(1052) 27=JUL=78 12:3 SEQ 0184 
CZRJJC.P11 26-JUL=78 10:07 POWER DOWN AND UP ROUTINE 


LP RARAAARAAARAARAAERRERH PARBRERERSESASSESSE SELES ESR RRR RRR RSA RRA S RRS D SO 


“ERROR AND MESSAGE TABLE CONDIMENTS 


* 
FRRRAAAARARAREAAAEARARERERRERAA AAA AAARRARARAARRAARARRARRERERARAARRAER AS 


050122 032060 : -ASCIZ /RPO4 DID NOT INTERRUPT/ 


-ASCIZ /INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/ 


RREREREE 
DONAUS WM 


042523 
042040 : . /RPOS4 DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/ 


051440 052105 
050130 041505 : ‘ EXPECTED BIT DID SET BUT TIME IS IN ERROR - TIME IN 10 MICROSEC. 


040515 
042040 ; “ /RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/ 


/LOADING RHER1 FOR ALL UNITS DID NOT SET ANY RHAS BITS/ 
020061 047506 020122 








CZRJJCO, RPO4/5/6 FCTNL CTRLR2 


CZRJJC.P11 


043176 
043204 


043662 
043670 


26-JUL=78 10:07 


053104 


020114 


036501 


MACY11 30A(1 
POWE 


047125 


046501 
052122 


042520 


051440 


020110 


020122 
020122 


053040 
051440 


026061 


EM?7: 


EM10: 


EM11: 


EM12: 


EM13: 


R 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASC1Z 


-ASCIZ 


ge 27-JUL=78 


OWN AND UP ROU 


_——_ 


/NON EXISTENT REGISTER, PROGRAM ABORTED./ 


/STOPPED DRIVE HAS MOL BIT IN RHDS1 SET/ 


AGE 186 SEQ 0185 


/WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO: AND IR SET/ 


/AFTER SFINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, vV¥=0/ 


/WITH SPINDLE POWERED, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, DVA=1, 


RDY= 


4 
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CZRJJC.P11 


26-JUL-78 


047510 


CTRLR2 
10:07 


041501 
047113 


043504 
046515 
040503 
040440 
047522 
047517 


046515 
053111 


040440 
047522 


046125 


| E 15 
MACY11 30A(1052) 27=JUL=78 12:32 PAGE 187 SEQ 0186 
POWER DOWN AND UP ROUTINES 


030475 
030075 


GF oaSa EM14: -ASCIZ /AFTER SPINDLE POWERED UP RHCC SHOULD BE=0/ 


poets -ASCII /PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


047101 
020120 -ASCII  /NO-OP COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


-ASCII /DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12> 


006522 
020104 . /GOOD DATA GIVES SHOULD BE. REC DATA GIVES AFTER COMMAND / 


020104 








aon 
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040515 
tse! : -ASCII /READ=-IN COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONTENTS AFTER COMMAND/ 


046515 


047101 
044122 veer : eASCIZ /RHCS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


051122 051117 
042110 ett : eASCIZ /RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


047522 
eaate : -ASCII /UNLOAD COMMAND CAUSED AN ERROR/<15><12> 


051122 051117 
042117 042040 . /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REGISTER CONT. AFTER COMMAND/ 


0651105 041440 047117 





aon 
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027124 
051105 
saa 


11 
020124 
047101 


051105 
052111 


045522 051525 042105 


MACY11 30A(1 
POW 


052106 


047101 
047122 
3 


047101 
043117 
0 


047522 
020105 
5 


044440 


EM24: 


EM25: 


EM26: 


EM27: 


05 
ER 


G 15 
) 2?=JUL=78 12:32 PAGE 189 
OWN AND UP ROUTINES 


-ASCII 


-ASCII 


-ASCIZ 


-ASCII 


/OFFSET COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


/RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/ 


/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE /<15><12> 





SEQ 0188 


ao 


15 
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050115 042520 
/GOOD DATA GIVES WHA’ SHOULD BE THERE/<15><12> 


051105 
044505 ‘ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


046515 047101 
052111 020105 : . /WRITE HEADER AND DATA CHANGED WRITE FROM BUFFER/ 


042506 000122 
042101 tes s -ASCII] /READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042510 042522 
042503 053111 ‘ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


040515 042116 
046205 044522 042524 eASCIZ /WRITE HEADER DATA FOLLOWED BY READ HEADER AND DATA CAUSED DATA ERROR/ 
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CZRJJC.P11 


26-JUL=78 10:07 


042522 


040505 


051105 
043516 


047517 


046515 
042101 
020101 
051122 


052111 


042510 
042503 


MACY11 30A 
PO! 


042504 


051105 
042040 
03 


020104 
043440 
053440 
044123 
041040 
051105 


044505 


047101 
042040 
047111 
041505 


020105 
0 


047101 
042040 


042522 
053111 


EM33: 


EM34: 


EM35: 


-ASCII 


-ASCII 


-ASCIZ 


-ASCIZ 


-ASCII 


-ASCII 


-ASCIZ 


1 15 
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WER DOWN AND UP ROUTINES 


/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


/READ DATA INCORRECT/ 


/WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


ao 


CZRJJCO, RPOS/5/6 FCTNL Sorhee MACY11 g hh ag 


CZRJJC.P11 26-JUL-78 
042105 052101 


051105 
044505 


046515 
020105 
b 


043516 
020104 


051105 


27-JUL=78 Te: SEQ 0191 


R DOWN AND UP ROU 


-ASCIZ 


-ASCII 


-ASCII 


/WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


/SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND/ 


/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
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041505 


042116 
041517 


042117 


MACY11 30A(1052) 


044505 
0405 


044513 
5 


020104 
043440 
053440 
044123 
041040 
051105 


044505 


052517 
050115 


047101 
042040 


-ASCIZ 


-ASCII 





K 15 
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POWER DOWN AND UP ROUTINES 


C2 
/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


/LOCKING OUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/ 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/ 


/ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER CHA 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


L 15 
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052101 020101 044507 
2526 


042510 042522 
042503 053111 * /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/ 


-ASCII /WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12> 


040524 
042040 “ /GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE WITH WRITE LOCKED OUT/<15 


052517 


040440 ‘ /WAS ATTEMPTED/<15><12> 
052120 


053111 . /RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12> 


044522 
053440 . /WITH WRITE LOCKED OUT WAS ATTEMPTED/ 


000104 
050554 041101 044514 EM44: -ASCII /ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE /<1 





M15 
CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL=78 12:32 PAGE 195 SEQ 0194 CZ 
CZ2RJJC.P11 26-JUL-78 10:07 POWER DOWN AND UP ROUTINES C2 


050562 053440 


047101 
042040 . /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042522 
053111 . /RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12> 


047524 


046102 -ASCIZ /ENABLED WRITES/ 
044522 


Reitz -ASCII "/ TRANSFERRING ON LAST BLOCK = CYLINDER 410. - 814., SECTOR 21, /<15><12> 


030462 
020113 . /TRACK 18, CAUSED IMPROPER REGISTER CHANGE /<15><12> 


043516 
047517 . /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


051250 052517 041040 





CZRJJCO, RPO4/5/6 FCTNL be 
CZRJJC.P11 


051256 
05 


051750 


26-JUL~78 


020105 
006505 


052040 


10:07 


041040 
051105 
041505 


040522 


MACY11 goes 


051105 
044505 
04 


020113 
051511 
051105 


043123 
043516 


006505 
044505 


051516 


EM46: 


EM47: 


15 
27-JUL=78 12: 32 PAGE 196 SEQ 0195 


DOWN AND UP ROUTINES 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


-ASCII 


-ASCIZ 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/ 


/DATA READ FROM LAST BLOCK = CYLINDER 410. = 814., SECTOR 21,/<15><12> 


/TRACK 18, IS IN ERROR/ 


/ TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12> 


/REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/ 


SK ITOMNIVODZ STH KCK TOMMOOD]Z BCKCKITCOMMOODS BACK TOMMOOWV!S! Brrr TOVWMOOW 


B 16 
CZRJJCO, RPOG/S/6 FCTNL See MACY11 30A(1052) 27=JUL-78 i 32 PASE 197 SEQ 0196 
C2RIJC.P11 26-JUL-78 10:07 POWER DOWN AND UP ROUTINES 


051756 


Oreste EMSO:  .ASCII /TRANSTERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12> | 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/ 


043123 


053111 i : -ASCII /GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042522 
053111 ‘ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/ 


044440 020123 044507 





. C 16 
CZRJJCO, RPOS/S/6 FCTNL MACY11 30A(1052) 27=JUL-78 12:32 PAGE 198 SEQ 0197 
CZRJJC.P11 26-JUL-78 POWER DOWN AND UP ROUTINES 


052442 


be EMS2:  .ASCII /WRITE DATA ON NONEXISTANT SECTOR CAUSED IMPROPER REGISTER CHANGE /<15><1 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/ 


-ASCIZ /READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/ 


051122 051117 
052124 nes /ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE 


042507 


042117 042040 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
020101 044507 
053132 042526 020123 044127 





D 16 
CZRJJCO, RPOG/S/5 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 199 SEQ 0198 
CZRJJC.P11 26-JUL=78 10:07 POWER DOWN AND UP ROUTINES 


053140 052101 051440 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


EMSS: -ASCII /WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12> 


/CAL'SED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


EMS6: -ASCII /DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR IS INCORRECT/<15><12> 


042522 
052103 





CZRJJCO, RPOS/ 
CZRJJC.P11 


054330 


5/6 FCTNL CTRLR2 
26-JUL=78 10:07 


042510 
042503 


051516 
042524 


044440 


MACY11 30A(105¢ 
POWER D 


042040 
044507 
044127 
047510 
042502 
042522 


053111 


042506 
050115 
0 


050115 


E 16 
) 2?=JUL=78 12:32 PAGE 200 SEQ 0199 
OWN AND UP ROUTINES 


-ASCII /WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 TO 266 SHOULD/<15><12> 


-ASCIZ /BE CHANGED/ 
-ASCII /ATTEMPTING DATA COMMAND WITH WRONG FORMAT BI” CAUSED/<15><12> 


7 IMPROPER REGISTER CHANGE /<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/ 


-ASCII /ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15>< 








16 
CZRJJCO, RPOS/S/6 FCTNL CTRLR2 MACY11 prvi ge 27=JUL=78 at 32 PAGE 201 SEQ 0200 
CZRJJC.P11 26-JUL=78 10:07 DOWN AND UP ROUT! 


006522 
051511 -ASCII /REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042522 
053111 -ASCII /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15 


-ASCIZ /MODFING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED ERROR 


051122 051117 
054650 


054651 04 053105 eeaas EM61: -ASCIZ /DEVICE NOT AVAILABLE BEFORE COMMAND WAS TO BE GIVEN/ 


EM63: -ASCIZ /RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


051105 047522 
055010 042522 040503 044514 EM64: -ASCII /RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE /<15><12> 








CZRJJCO, RPOS/5/6 FCTNL eg 


CZRJJC.P11 
055016 


055476 


26-JUL-78 
051102 


047101 


10:07 
052101 


042524 


051525 
051122 


051504 


042522 
041440 


020104 


MACY11 gig 


020105 


051105 
044505 


052123 


042105 
051117 


020124 


042101 
046131 


040504 


16 


27-JUL=78 : PAGE 202 


DOWN AND UP ROU 


-ASCIZ 


-ASCII 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


7 INTERRUPT FAILING/ 


/HEADER AND DATA COMMAND FOR HEAD SELECTION TEST/<15><12> 


/CAUSED ERROR/<15><12> 


/RHDST GIVES WHAT TRACK WAS BEING WRITTEN OR READ/<15><12> 


/ON CYLINDER 0, SECTOR 0/ 


/READ HEADER AND DATA ERROR IN HEAD SELECTION TEST/<12><15> 





SEQ 0201 





CZRJJCO, RPO4/5/6 FCTNL 


CZRJJC.P11 


056152 


26-JUL-78 


046525 
042522 


020107 


CTRLR2 
10:07 


042440 


042101 
0425 


04 
020104 
042440 
044440 


043111 


4 


051104 


041522 
050117 


MACY11 30A(1052) 
POWER D 


051122 


051505 
052123 


000122 
044040 
020122 
040504 
051122 
006516 


042506 


042504 
020104 


051505 


047111 
020111 


H 16 
27-JUL-78 ane PAGE 203 


ASCII 


OWN AND UP ROUTIN 


7FIRST FOUR WORD NUMBERS ARE HEADER/<12><15> 


/WORD NUMBERS 5 TO 260 ARE DATA WORDS/<12><15> 


7IN DATA WORDS BITS 4,5,6,7,8 GIVE TRACK NUMBER/ 


/READ HEADER AND DATA ERROR IN/<15><12> 


/DIFFERENCE LINE TEST/<15><12> 


/WORD NOS 1-4 GIVE HEADER/<15><12> 


/WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/ 


/FORCING OP] BY 3 INDEX PULSES/<15><12> 


SEQ 0202 





CZRJJCO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27?=JUL=78 12:3 SEQ 0203 
CZRJJC.P11 26-JUL=78 10:07 POWER DOWN AND UP ROUTINE 


056160 054502 031440 044440 
054105 
042523 


052501 ° /CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


042522 
053111 “ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/ 


/THERE WAS A SETUP ERROR DURING MULTIPLE WRITE/<15><12> 


/HEADER AND DATA COMMANDS RESULTING IN AN ABORT/<15><12> 


/JOF THIS “OPI® TEST./<15><12><15><12> 


/TO TROUBLE SHOOT SETUP ERROR, LOOP ON THIS TEST/ 


042524 052123 





CZRJJCO, RPOS/S/6 FCTNL 


CZRJJC.P11 26-JUL-78 


057174 


000124 


CTRLR2 
10:07 


054105 


046125 
040503 
047440 
020117 


MACY11 30A(105 
OWER 


020104 
051105 


042122 
044440 
051440 
051522 


020124 


051122 
020104 


042122 
044440 


042523 


POW 
—EM73: 


EM74: 


J 16 
2) 27=JUL=78 12:32 PAGE 205 SEQ 0204 
DOWN AND UP ROUTINES 


-ASCII 


-ASCII 


-ASCIZ 


-ASCII 


-ASCII 


-ASCIZ 


/READ HEADER AND DATA FOR 11960 WORDS /<15><12> 


/THAT IS 46 SECTORS /<15><12> 


/THAT IS OVER 3 INDEX PULSES CAUSED AN ERROR/ 


/READ HEADER AND DATA FOR 11960 WORDS /<15><12> 


/THAT IS 46 SECTORS, THAT IS OVER 3 INDEX /<15><12> 


/PULSES CAUSED OPI TO SET/ 


K 16 
CZRJJCO, RPOS/5/6 FCTNL MACY11 30A(1052) 27=JUL-78 12:32 PAGE 206 SEQ 0205 
CZRJJC.P11 26-JUL-78 10: POWER DOWN AND UP ROUTINES 


057176 020114 CPHALT: .ASCII /FATAL ERROR = SEE DOCUMENT LISTING/<15><12> 
7522 020122 


ASCII 7/4 /€15><12><207><377><377><207><377><377><207><377><377> 
-ASCII /THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 


051517 006524 
042522 042101 . /*READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 


044502 051524 
041511 020110 . /WHICH CANNOT BE CLEARED/ 
047116 052117 


020105 046103 
057442 040505 042522 000104 


057450 041520 020040 02 : P BIT REG REG RHCS1/<15><12> 


006461 
020040 . EXPCTD ADDRESS CONTENT CONTENT 


042524 


020040 : ‘ BIT REG TIME IN/<15><12> 
020040 042524 052123 








L 16 
CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 207 SEQ 0206 
CZRJJC.P11 26-JUL=78 10:07 POWER DOWN AND UP ROUTINES 


040527 


EXPCTD ADDRESS 10 MSEC/ 


051515 
020103 : * GOOD RECEIVED/<15><12> 


ADDRESS DATA DATA/ 


042040 052101 
020040 020040 : ‘ REG RECEIVED/<15><12> 
052123 
042522 
020040 
053111 


020040 . ADDRESS DATA/ 


REG ADDRESS/ 


042522 


pevene -ASCII FAILING CONTENT CONTENT CONTENT CONTENT/<15><12> 


042524 052116 041440 





16 
CZRJJCO, RPOG/S/6 FCTNL MACY11 30A(1052) 27=JUL-78 : PAGE 208 SEQ 0207 
CZRJJC.P11 26-JUL-78 10: POWER DOWN AND UP ROU 


052116 


REG. RHCS1 RHCS2 RHDS1 RHERT/ 


-ASCII CONT OF CONT OF CONT OF CONT OF CONT OF CONT OF /<15><12 


RHCS1 RHCS2 RHDS1 RHER1 RHER2 RHER3S / 


ASCII WORD GOOD BAD/<15><12> 


DATA DATA/ 


052101 


yes -ASCII GOOD RECVD =ILLEGL/<15><12> 





B 
:32 
NES 


1 
PAGE 209 SEQ 0208 


Ste RP04/5/6 FCTNL CTRLR2 MACY11 ae be 27-JUL-78 12 
CZRJJC.P11 26-JUL-78 10:07 R DOWN AND UP ROUT! 


053103 


ADDRESS DATA DATA FUNC TN/ 


DH60 : ASCII REG GOOD RECVD MODF ING/<15><12> 


043516 
020040 . ADDRESS DATA DATA 


042522 
3's'p4 DH61: ASCII PC OF RHDS1/<15><12> 


JSR WAS/ 


020040 
Bteak DH62: .ASCII RHCS1/<15><12> 


eASCIZ WAS/ 
053440 
perene DH65: .ASCII CONT CONT CONT/<15><12> 


047117 


020040 . RHCS1  RHAS RHDS1/ 
020117 





1 
CZRJJCO, RPO4/5/6 FCT MACY11 30A(1052) 27=JUL-78 i 36 PAGE 210 SEQ 0209 
CZRJJC.P11 26-JUL-7 POWER DOWN AND UP ROUTI 


051040 


DH66: -ASCIZ /PC TEST RHDST RHER1 RHER2 RHER3 RHCS1 RHCS2/ 


DH72: eASCIZ = /PC TEST RHCSI RHCS2 RHDS1 RHDS* ~~ RHCA RHER1 RHWC/ 


051040 


oe ¢ . SERRPC, TSTNM,WAITPC ,WAITBT ,WAITRE,S8DDAT,CS1,0 


SERRPC, TSTNM, TSTNM,WAI TPC ,,WAITBT ,WAITRE ,SBDDAT ,WAITTM,0 


SERRPC, TSTNM,REGADR, $GDDAT , SBDDAT .0 
SERRPC, TSTNM,REGADR, $BDDAT ,0 
001200 : ‘ SERRPC, TSTNM,$TMP1,0 


001122 eo SERRPC , TSTNM, $BDADR,CS1,CS2,DS1,ER1,0 
002304 


SERRPC, TSTNM,CS1,CS2,DS1,ER1,ER2,ER3.0 


SERRPC, TSTNM,ERWORD , S$GDDAT , SBDDAT ,0 


004504 SERRPC ,TSTNM,REGADR ,SGDDAT , $BDDAT, ILLEGL .0 
001126 








_—_ 


od dt LE IRI RIM I MIMI RMIMIMIMIMIRIRMIRMIMIMINIAMLIMIALIAIALA 


D 1 
CZRJJCO, RPO4/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL=78 12:32 PAGE 211 SEQ 0210 
CZRJJC.P11 26-JUL-78 10:07 POWER DOWN AND UP ROUTINES 


001116 004504 004500 DT60: SERRPC , TSTNM,REGADR, SGDDAT , S$BDDAT , $BDADR ,0 
00 001126 001122 


033126 DT61: . SERRPC , TSTNM,PCJSR, $BDADR 0 
033126 DTé62: SERRPC, TSTNM,PCJSR, $BDADR ,0 
002262 DT65: SERRPC,TSTNM,CS1,AS,DS1,0 
000000 


002266 DI66: . SERRPC, TSTNM,DST,ER1,ER2,ER3,CS1,CS2,0 
eens 


000000 
002262 DT72: . SERRPC,TSTNM,CS1,CS2,DS1,DST,CA,ER1 ,WC,0 
002266 
002254 


000 : ° 0,0,0,0,0,0,0 
000 


000 ¢ é 0.0,0,0,0,1.,0 
001 





0.0,0,0,0 
0.0.0.0 
0.0 


.0,0 
0,0,0,0,0.0,0 


0,0,0,0,0,0,0,0 


0.0.0,0,0 


0.0,0,0.0,0 


9,0,0,0,0,0 
0,0,0.0 

0,0,0,0 
0.0,0,0,0 
0,0,0,0,0,0,0,0,0 


0,0.0.0,0.0,0,0,0 





7 
CZRJJCO, RPO4/5/6 FCTNL co MACY11 "hak bi 27-JUL=78 12: 3 PAGE 212 SEQ 0211 
CZRJJC.P11 26-JUL-78 10:07 DOWN AND UP ROUTINES 


9897 062366 000 000 000 

9898 

9899 062372 -EVEN 
9900 

9901 000001 





ee 
CZRJJCO, RPO4G/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 214 
CZRJJC.P11 26-JUL-78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


4069 4166 


3568 3698 
6210 


7744 
7739 8394 


2585 5494 5691 


4283 


4077 


4374 


4176 


4611 


4293 


4788 


4382 


5103 


4616 


SEQ 0212 


5301 


4813 





2M ode 2m 6M OM AM 46M 6M 4 £4 1 1 . es £4 644 4644 14 16411 


oe ae ee ee ee ee ee 


G 1 
CZRJJCO, RPOS/S/6 FCTNL Db MACY11 30A(1052) 27=JUL=78 12:32 PAGE 215 SEQ 0213 
CZRJJC.P11 26-JUL~78 10:07 CROSS REFERENCE TABLE == USER SYMBCLS 


033130 
033166 
033152 


033762 


= 104407 
CLAREA 032742 


CLDISK 033072 


000040 
035120 
034070 


057176 


002260 
002252 
100000 


1123 1147 1183 1219 1326 1337 98774 


898 906 913 923 + 932 943 966 987 
1076 1101 1114 1136 1176 1195 1207 1232 


1 
988C# 





H 1 
CZRJJCO, RPO4/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27=-JUL=78 12:32 PAGE 216 


CZRJJC.P11 


26-JUL-78 10:07 


CROSS REFERENCE TABLE == USER SYMBOLS 


96664 
1087 1121 1145 


881 893 904 
1062 1074 1099 


98024 
7798* 


1181 


911 
1112 


1217 


921 
1134 


1324 


930 
1174 


1335 


941 
1193 


97094 


964 
1205 


98364 


965 
1206 


SEQ 0214 


985 
1230 


986 
1231 





7 
CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL-78 12:32 PAGE 217 SEQ 0215 
CZRJJC.P11 26-JUL-78 10:07 CROSS REFERENCE TABLE =~ USER SYMBOLS 


1929* 1965* 


So 
& 


11 
11 
11 

7 
11 
11 
11 
11 
11 
11 
12 
12 
7 


SNRSSRUIS LS LON 
MODWADODAOOLAN 





J 1 
CZRJJCO, RPO4/5/6 FCTNL oe MACY11 30A(1052) 27=JUL-78 12:32 PAGE 218 SEQ 0216 
CZRJJC.P11 26-JUL=78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


054242 
93364 


4168 4285 4376 4613 4790 5105 5303 5509 
1939* 1967* 7761 7762* 7764* 7767* 
9833 9850 9853 


34026 
032774 


004564 
004562 
004634 
032716 


010000 


002322 


= keer U 





K 1 
CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL=78 12:32 PAGE 219 SEQ 0217 
CZRJJC.P11 26-JUL-78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


015440 


8212 
2459 2474 2580 4615 4792 7179 
7898 7903 





7 
CZRJJCO, RPO4/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL-78 12:32 PAGE 220 SEQ 0218 
CZRJJC.P11 26-JUL=78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


LT. = 000000 2319 24578 25624 567 2643 27124 28114 
2836 29 298 30 3148 


8 
6292 6450 65544 
67854 68774 


6175 6183 
2327 3798 


1802* 1805* 
2079* 2086 2132* 6969* 
2087* 


7987 
6455 
3433 4601 5098 5116 5117 5198 5199 6014 6024 


PAR = 000010 

PCJSR 033126 7161* 7166* 7167* 9844 9846 
PCLBUF 002246 

PCLCSR 002244 7263* 

PCLCTR 002250 

PGE 002000 


PIP 020000 
PIRQ 177772 
PIRQVE= 000240 

002 2308 2319 





M 1 
CZRJJCO, RPO4G/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=-JUL=78 12:32 PAGE 221 SEQ 0219 
CZRJJC.P11 26-JUL-78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


PRITEM 040746 1911% 6968*  7553* 81484  8234* 8252 8256* 
PROG 001000 


2264* 2289* 2817* 6946* 7552* 


6564 6651 75954 
8365*  8374* 8389* 


3003 
5015 
6447 


5278 


4743 
3803*  3897* 


REINTO 


RELEAS osttes 


5517 


7125* 


5400* 5422* 





CZRJJCO, RPO4/ 
CZRJJC.P11 


006522 
035054 


004642 


N 1 
5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=-JUL=78 12:32 PAGE 222 
26-JUL-78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


5890* 


5899 6167* 
6464 64 6555 
7126* 7290 
3414 4158 
7628* 


2821* 


6282* 
642 

7375 

4598 


3243 
5107 


2984 
4785 


2143 


4258 
7142 


SEQ 0220 


7631* 
5115 


3445 
5305 


3454 
5298 


2168 


4356 





B 2 
CZRJJCO, RPOG/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27-JUL=78 12:32 PAGE 223 SEQ 0221 
CZRJJC.P11 26-JUL-78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


RUNWAT 027420 
SAVER 033240 


SAVERE 004512 


55 
6210* 6220* 
5294 5696 


1830* 
7777 


1877 





* : 
Se RP04/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 224 SEQ 0222 


JC.P11 26-JUL-78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 
swO3 = 000010 6284 
Sw04 = 000020 6284 
swoS = 0 5284 
SwO6 = 000100 6284 8152 
swO7 = 000200 6284 7516 7677 
Swo8 = 000400 6284 
SwO9 = 001000 6284 
Swi == 000002 6284 
Sw10 = 002000 6284 
SW11 = 004000 6284 
SWwi2 = 010000 6284 188 
SW13 = 020000 6284 1943 1992 2012 
SW14 = 040000 6284 
Sw15 = 100000 6284 
SWw2 = 000004 6284 
SW3 = 000010 6284 
SW4 = 000020 6284 
SWS = 0 6284 
SW6 = 000100 6284 
SWw7 = = 000200 6284 
Sw8 = 000400 6284 
Sw9 = 001000 6284 
TBITVE= 000014 6284 
TOF = 000040 15524 
TESTAD 034224 75504 
TIMCNT 033570 2238 2267 7279 7284 73464 7364 7369 
TIME1 033272 72364 
TIME2 033304 1910 72384 
TKVEC = 000060 6284 7909* 7910* 
TMPO 004650 He 2796* 2825 2978* 2979% 2995 5360* 5475 5478* 5534 5565* 5672 5675* 
TMP 004652 17874 6250* 6323* 6335* 6411* 
TMP4 004654 17884 
TMP5 004656 17894 2797* 2821 2980* 2991 5361* 5555*  5566*  5844* 
TN = 000037 2099% 2100 2291 2292 2372 2373 26254 2626 28974 2898 30934 3094 32764 
3277 36164 3617 37204 3721 39564 3957 41034 4104 41984 4199 43184 4319 
4407# 4408 49724 4973 52394 5240 53574 5358 55614 5562 58514 5852 59624 
5963 61204 6121 62454 6246 63304 6331 64764 6477 66994 6700 
TOTALA 004646 17844 2005* 2007* 
TPVEC = 6284 
TRAPVE= 000034 6284 1819% 1820* 1843* 2959% 2973*  2989% 
TRE = 040000 Hos bts 3443 3567 4368 4596 4783 5093 5296 6011 6021 6030 6194 
TRK1_ = 004000 15394 
TRK10 = 040000 15424 
TRK2 = 010000 15404 
TRK20 = 100000 15434 
TRK4 = 020000 15414 
TRP 006464 1955 19624 
| TRTVEC= 000014 6284 
TSTNM = =004504 1732 861927 1988* 2100* 2204% 2227 2256* 2292% 2373* 2626* 2898%  3094*  3277* 


3617* 3721% 3957% 4104*% 4199% 4319 4408* 4973* 5240* 5358* 5562* 5852* 5963» 
6121* 6246* 6331* 6477* 6700* 7556 9818 9821 9824 9826 9828 9830 9835 
9836 9838 9841 9844 9846 9848 9850 9853 


0 2272 22834 


D 2 
CZRJJCO, RPO4/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 225 SEQ 0223 


CZRJJC.P11 26-JUL=78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 

TST11 =—-011654 23714 

TST12 012530 26244 

TST13. = =013510 23964 

TST14 =014256 30924 

TST15 14764 32754 

TST16 =—016114 36154 

TST17 =. 016446 37194 

TST2 536 19704 

TST20 017334 39554 

TST21 38017714 41024 

TST22 020172 41974 

TST23 020530 43174 

TST24 20776 4 

TST25 022616 49714 

TST26 §=©023572 52384 

TST27 024120 53564 

TST3 1977 19854 

TST3O0 024750 5557 55604 

TST31 26036 5846 58504 

TST32 026402 59614 

TST33 = 027230 5968 61194 

TST34 §=©027656 62444 

TST35 030140 63294 

TST36 ©0305 76 6389 64754 

TST37 = 031410 6695 66984 

TST4 007720 2091 20954 6966 6977 

TST40 = 032342 69444 

TSTS 10646 22034 

TST6 011200 2210 2225# 

TST7 011310 2244 2248 22544 

TUF = 000100 15534 

TYPDS = 104405 2066 2078 2155 6950 6954 6964 7000 8278 83574 

TYPE = 104401 1856 1858 1861 1863 1865 1868 1870 1915 1946 1963 1994 2018 
2020 2022 2024 2063 2067 2071 2076 2124 2126 2152 2156 2160 2184 
2188 2192 2211 2213 2215 2219 2295 2449 2554 2630 27 28 2903 


8178 8182 8186 8190 8194 8198 8202 8206 8210 8214 8218 8222 8226 
8230 8237 8259 8261 8264 8266 8281 8325 83534 8391 

TYPERR 041710 8155 82364 

TYPOC = 104402 1951 2070 2159 2163 7557 7561 7695 7714 7722 7726 7736 7749 7972 


8161 8165 8169 8173 8177 8181 8185 8189 8193 8197 ~=8201 8205 c09 


TYPON = 104404 83564 

TYPOS = 104403 83554 

UNIB = 000020 14104 

UNIT 004616 ae 1919* 1922* 2085* 2092* 2104 2131* 2134 2154 6949 6971 6976* 7145 
UNITS 004576 17574 2034 2038 2085 2116 6972 


630 17664 1920* 1922 2092 
UNLOAD 002324 17004 


E 2 
CZRJJCO, RPO4/5/6 FCTNL 9 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 226 SEQ 0224 
CZRJJC.P11 26-JUL=78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


002342 
002344 


2956* 2970% 3795* 3802+ 
7301* 7374* 7400* 7509* 7671* 9818 


6894 6904 





r ¢ 
CZRJJCO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL-78 12:32 PAGE 227 SEQ 0225 
CZRJJC.P11 26-JUL=78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


6864 6874 6884 6894 6904 
6924 6934 6944 6954 6964 
80584 


7562 7873 7903 7999 8058 
78554 
70094 


040600 
001116 
001226 


001124 6664 3673* 3799* 


9836 
032652 
037716 
000000 


7801 
7795* 


23714 30924 
52384 58504 


8304* 
7790 
6990* 


83644 





G 2 
CZRJJCO, RPO4/S/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 228 SEQ 0226 
CZRJJC.P11 26-JUL-78 10:07 CROSS REFERENCE TABLE =~ USER SYMBOLS 


83774 
7903 8018 8043 8058 8102 8105 
8360 


8361 
8362 


wake 
xekkKke 


8379*  8380* 83984 


8002* 
5986 
6913 

001202 

001204 

001206 

001210 

000041 


36 3 3955 4102 
44074 5238 5239# 53574 5557 55614 





H 2 
CZRJJCO, RPO4G/5/6 FCTNL CTRLR2 MACY11 30A(1052) 27=JUL=78 12:32 PAGE 229 
CZRJJC.P11 26-JUL=78 10:07 CROSS REFERENCE TABLE == USER SYMBOLS 


59624 5968 6119 61204 6244 62454 6329 63304 6389 
66994 6944 69454 


83584 8359% 83604 83614 83624 83634 
7793* 7798 7802 8109 8132 


17224 
19964 
22174 
77354 


81964 
98994 


- ABS. 062372 000 


ERRORS DETECTED: 0O 


CZRJJC ,DSKW: CZRJJC.SEQ/SOL/NL : TOC :MC :ME : CND=SYSMAC . SML[400, 1066], CZRJJC.P110400,1424] 
RUN-TIME: 42 47 2 SECONDS 

RUN-TIME RATIO: 256/93=2.7 

CORE USED: 37K (73 PAGES) 


DOCUMENT PAGES: 227 


SEQ 0227 


6475 





